Re: Re: Trying to count the captures in a compiled regular expression

[sgifford]

Wow, that works! I knew there had to be a way to evaluate the regexp to get an answer. Good stuff! :)

[ysth]

Security alert: that will run code in (??{ }) / (?p{ }). Maybe something like this instead?

$regex = qr:(??{print "look ma, no rm -rf /\n"}):;
$captures = (() = ""=~/(|$regex)/) - 1;

Also, note that you have to add a () set and then subtract it from the count to be able to distinguish between 0 captures and 1 capture.