[Nms-cgi-devel] Just for fun

[Jonathan S. <gel...@ge...>]

$ cvs log | grep lines | perl -e 'while (<>) {
/author:\s+(\S+?);.*lines:\s*(.*)/
; ($plus, $minus) = split / /, $2; $score{$1} += $plus; $score{$1} -=
$minus; }
foreach ( sort { $score{$b} <=> $score{$a}} keys %score ) { print "$_
$score{$_}\n"}'

/J\
-- 
Jonathan Stowe                      |
<http://www.gellyfish.com>          |      This space for rent
                                    |