this gives:my $re = qr/(${ \$obj->gimme_sweet_love })/; for my $match ( qw(yes yeah ja jup ok) ) { print "\$match value:", $match; print "HURAY (m)" if $match =~ m/$re/; print "count = ".$obj->cnt; }
$match value:yes count = 1 $match value:yeah HURAY (m) count = 1 $match value:ja count = 1 $match value:jup count = 1 $match value:ok count = 1
to ask a question is a moment of shame
to remain ignorant is a lifelong shame
In reply to Re^2: ??{ } oddity
by insaniac
in thread ??{ } oddity
by insaniac
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |