Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: What is this erroring out?

by Hue-Bond (Priest)
on Mar 16, 2010 at 08:03 UTC ( #828839=note: print w/replies, xml ) Need Help??

in reply to What is this erroring out?

When the line return 0 if ($2 !~ /(d|p|t)/); is executed, $2 is undef because in the previous regex matching (the one in the line just above it!) has only one pair of parentheses. Use something like this (untested):

sub test { my $a = shift; my ($first, $second, $third, $fourth, $fifth) = $a =~ /(.)(.)(.)(.. +)(.+)/; return 0 if ($first !~ /(a)/); return 0 if ($second !~ /(d|p|t)/); return 0 if ($third !~ /(a|h|r|s|t)/); return 0 if ($fourth !~ /(aw|er|dd|cb|aa)/); }

 David Serrano
 (Please treat my english text just like Perl code, i.e. feel free to notify me of any syntax, grammar, style and/or spelling error. Thank you!).

Replies are listed 'Best First'.
Re^2: What is this erroring out?
by yoda54 (Monk) on Mar 16, 2010 at 08:08 UTC
    Thanks you!!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://828839]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2021-01-26 15:55 GMT
Find Nodes?
    Voting Booth?