48be942fcb
file and output them suitably for inclusion in credits.c.
I would've used an awk script for this but I guess the windows people wouldn't
like that. Anyway for the record, I actually used 'a2p' with my awk hack
{ if(a && length($1)) print $0} /Friend/ {a++;}
The perl version is slightly larger.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@2637 a1c6a512-1295-4272-9138-f99709370657
10 lines
184 B
Perl
10 lines
184 B
Perl
while (<STDIN>) {
|
|
chomp; # strip record separator
|
|
my @Fld = split(' ', $_, 9999);
|
|
if ($a && length($Fld[1])) {
|
|
print "\"$_\",\n";
|
|
}
|
|
if (/Friend/) {
|
|
$a++;
|
|
}
|
|
}
|