Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re^5: What perl operations will consume C stack space?

by Corion (Pope)
on Feb 27, 2006 at 14:18 UTC ( #533024=note: print w/replies, xml ) Need Help??

in reply to Re^4: What perl operations will consume C stack space?
in thread What perl operations will consume C stack space?

Your first factorisation(sp?) is valid - (ab*){32766} and (ab+|a){32766} are equivalent, as they will both match and not match exactly the same strings (modulo any deficiencies in the Perl interpreter). Your second factorization is not equivalent, as the first regex allows for backslashed items, which the second doesn't:

#!/usr/bin/perl -w use strict; my @regexen = ( qr/"((?:\\.|[^"])+)"/, qr/"([^"]+)"/, ); for (<DATA>) { for my $r (@regexen) { print "$_\t"; print "\t$r"; if (/$r/) { print "\tMatch\t($1)\n"; } else { print "\tNo match.\n"; }; }; }; __DATA__ "foo\"bar"

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://533024]
[moritz]: also, you can shorten %message{'author'} to %message<author>
moritz puts down the code review hat
[moritz]: very nice code!

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2017-09-23 12:50 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (272 votes). Check out past polls.