Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^4: I need a "non-trivial" bug for my script!

by f00li5h (Chaplain)
on Feb 27, 2009 at 00:36 UTC ( #746719=note: print w/replies, xml ) Need Help??


in reply to Re^3: I need a "non-trivial" bug for my script!
in thread I need a "non-trivial" bug for my script!

Do the match in list context, and don't use $\d+ at all

if (@kitties = $string =~ /pattern (with) captures/) { paw_at @kitties; }
Obviously you can use my($cats, $kittens) in place of @kitties there.

The other option is check that the match succeeded first

if ($string =~ /pattern (with) captures/) { paw_at $1; }
but $1 is ugly... unpacking into either an array or bundle of scalars will get you less maintenence-programmer hate.

@_=qw; ask f00li5h to appear and remain for a moment of pretend better than a lifetime;;s;;@_[map hex,split'',B204316D8C2A4516DE];;y/05/os/&print;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://746719]
help
Chatterbox?
[stevieb]: ffs... an hour I've been trying to get a Pi to communicate I2C to an Arduino. Had to slow down the communication channel. Sigh

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2017-06-22 22:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (531 votes). Check out past polls.