savezelda/lsw/make-title-bin.pl
2011-02-02 20:59:54 +01:00

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;