mirror of
https://github.com/lewurm/savezelda.git
synced 2024-11-17 16:19:21 +01:00
17 lines
236 B
Perl
Executable File
17 lines
236 B
Perl
Executable File
#!/usr/bin/perl
|
|
sub printline {
|
|
my $x = shift;
|
|
chomp $x;
|
|
$x .= "\0" x 32;
|
|
$x = substr $x, 0, 32;
|
|
$x =~ s/(.)/\0$1/g;
|
|
|
|
print $x;
|
|
}
|
|
|
|
$name = '"Bathaxx" by lewurm';
|
|
$version = `cat ../.version`;
|
|
|
|
printline $name;
|
|
printline $version;
|