diff options
Diffstat (limited to 'apps/credits.pl')
-rw-r--r-- | apps/credits.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/apps/credits.pl b/apps/credits.pl new file mode 100644 index 0000000000..3d3945d2ad --- /dev/null +++ b/apps/credits.pl | |||
@@ -0,0 +1,10 @@ | |||
1 | while (<STDIN>) { | ||
2 | chomp; # strip record separator | ||
3 | my @Fld = split(' ', $_, 9999); | ||
4 | if ($a && length($Fld[1])) { | ||
5 | print "\"$_\",\n"; | ||
6 | } | ||
7 | if (/Friend/) { | ||
8 | $a++; | ||
9 | } | ||
10 | } | ||