mirror of
https://github.com/lewurm/savezelda.git
synced 2025-10-31 13:16:10 +01:00
17 lines
235 B
Perl
Executable File
17 lines
235 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 = "Return of the Jodi";
|
|
$version = `cat ../.version`;
|
|
|
|
printline $name;
|
|
printline $version;
|