Re: reset of match variables

Untested:

$SUM += /$regex/ && $1;  # Don't turn on warnings.
[download]

Comment on Re: reset of match variables Download Code
Re^2: reset of match variables by hbm (Hermit) on Oct 03, 2011 at 18:22 UTC
Or even just this: `$SUM += /$regex/;` [download] Update: Sorry, mine only counts the number of matches (like `grep -c`). To accumulate the values of matches, I still instinctively reach for (something like) this: `nawk '/([0-9]*)/{tot+=$1}END{print tot}' file` [download]	[reply] [d/l] [select]
Re^2: reset of match variables by AnomalousMonk (Prior) on Oct 03, 2011 at 22:25 UTC
With warnings and strictures: `>perl -wMstrict -lne "$::SUM += /(\d+)/ && $1; END { print $::SUM } " foo123bar foo xxx111ccc xxx ^Z 234` [download]	[reply] [d/l]
Re^3: reset of match variables by bart (Canon) on Oct 04, 2011 at 11:31 UTC
Jeezes, who would want to use strict and a workaround for a one-liner??	[reply]
Re^4: reset of match variables by ambrus (Abbot) on Oct 04, 2011 at 12:34 UTC
I write 550 character long one-liners (anything above that I convert to a script file), and I do often use `strict` in them.	[reply] [d/l]
Re^2: reset of match variables by bart (Canon) on Oct 04, 2011 at 11:35 UTC
Warnings do nothing: if the regexp fails then it'll return false, which is 0 when treated as a number, not undef, and without a warning.	[reply]


laziness, impatience, and hubris
	PerlMonks