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??

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

if (@kitties = $string =~ /pattern (with) captures/) {
  paw_at @kitties;
}
[download]

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;
}
[download]

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;

Comment on Re^4: I need a "non-trivial" bug for my script! Select or Download Code

Node Status^?

node history
Node Type: note [id://746719]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others drinking their drinks and smoking their pipes about the Monastery: (8)

As of 2013-06-19 07:28 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?