mirror of
https://github.com/lewurm/savezelda.git
synced 2024-11-18 00:29:19 +01:00
17 lines
244 B
Perl
17 lines
244 B
Perl
|
#!/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 = "Twilight Hack by Team Twiizers";
|
||
|
$version = `cat .version`;
|
||
|
|
||
|
printline $name;
|
||
|
printline $version;
|