mirror of
https://github.com/datajerk/gameserverclient.git
synced 2025-02-06 15:30:01 +00:00
31 lines
339 B
Perl
Executable File
31 lines
339 B
Perl
Executable File
#!/usr/bin/env perl -w
|
|
|
|
use strict;
|
|
|
|
my @titles = ();
|
|
my $max = 0;
|
|
my $s = 1;
|
|
|
|
print "first:\n";
|
|
|
|
while(<>)
|
|
{
|
|
my @a = split(/\"/);
|
|
|
|
push @titles,$a[3];
|
|
|
|
if(length($a[3]) > $max) {
|
|
$max = length($a[3]);
|
|
}
|
|
}
|
|
|
|
foreach(@titles) {
|
|
if(\$_ == \$titles[-1]) {
|
|
print "last:\n";
|
|
}
|
|
printf("s%03d:\t.asciiz\t\"%-${max}s\"\n",$s++,$_);
|
|
}
|
|
|
|
|
|
|