mirror of
https://github.com/lewurm/savezelda.git
synced 2024-06-09 21:18:45 +02: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;
|