summaryrefslogtreecommitdiffstats
path: root/apps/credits.pl
blob: 3d3945d2ad0cba6441efc908ea415e840e41a7ce (plain)
1
2
3
4
5
6
7
8
9
10
while (<STDIN>) {
    chomp;	# strip record separator
    my @Fld = split(' ', $_, 9999);
    if ($a && length($Fld[1])) {
	print "\"$_\",\n";
    }
    if (/Friend/) {
	$a++;
    }
}