Solved

compile patten once, use elsewhere

Posted on 2002-07-15
1
162 Views
Last Modified: 2010-03-05

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
 
0
Comment
Question by:hank1
1 Comment
 
LVL 84

Accepted Solution

by:
ozo earned 50 total points
ID: 7155275
foreach $o (@oa) {
    $pattern = qr/^$o\d\d$/;
    foreach $i (@ia) {
       $i =~ $pattern;
    }
}
0

Featured Post

Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Existing perl code to be changed for ftp to sftp handling 14 214
Perl script to parse xml file 2 125
perl CPAN issue 3 117
iSeries PERL Scripts 7 172
A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads),  installed and started the daemon, and had a console window open. After an hour or two of playing at the command …
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

830 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question