Tadek’s Blog

Just a neat one liner:

perl -ne ‘if (/^diff .* ([^\s]+)$/ || eof()) { print “$file $plus $minus\n”; $file = $1; $plus = 0; $minus = 0;} /^+/ && $plus++; /^-/ && $minus–;’

This entry was posted on Tuesday, August 23rd, 2005 at 2:57 pm and is filed under Hacking, Perl. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.