perl precompiled regex question -
Do I actually get any benefit from doing the following (as opposed to $$ in both the actual regex PCR) If statement)? (Too many lines are in the real data set, but for example, just use the data.
my $ defs = 0; my $ test = 0; my $ pcr = qr / \ s * [\ / \\]? \ S * /; While (& lt; data & gt;) {$ defs = ($ 1? 0: 1) / / lt; ($ {pcr}) / Definitions; $ Test = ($ 1? 0: 1) / / lt; ($ {pcr}) test /; print "defs: $ defs \ ntests: $ tests \ n \ n";} __DATA__
Comments
Post a Comment