compile patten once, use elsewhere


Have outloop pattern I want compiled in the outer
loop and used in innerloop.

foreach $o (@oa) {
  # pattern /^$o\d\d$/
  foreach $i (@ia) {
    # use it here  $i =~ /fromOuterLoop/;
  }
}

How?

Thanks
 
LVL 1
hank1Asked:
Who is Participating?
 
ozoConnect With a Mentor Commented:
foreach $o (@oa) {
    $pattern = qr/^$o\d\d$/;
    foreach $i (@ia) {
       $i =~ $pattern;
    }
}
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.