Sum Matching Group in Perl

From EggeWiki
Revision as of 14:10, 13 June 2013 by Brianegge (talk | contribs) (Created page with "Perl script to find a number in matching lines and report the sum. <geshi lang="perl"> perl -ne '$sum += $1 if /in (.*) seconds/; END { print $sum }' </geshi> Category:Perl")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Perl script to find a number in matching lines and report the sum.

<geshi lang="perl"> perl -ne '$sum += $1 if /in (.*) seconds/; END { print $sum }' </geshi>

Retrieved from "https://www.theeggeadventure.com/wikimedia/wikimedia/index.php?title=Sum_Matching_Group_in_Perl&oldid=2421"