When you match to a regular expression in a perl program, the program has to compile the regular expression (i.e. work out what it does) before actually doing the matching. It's pretty smart about that - it stored the result of than compile so that it only has to do it once during each run. However, if the regular expression contains a variable, Perl is slowed right down as the variable could change and Perl has to recompile every time.

If the variable isn't, in fact, going to change very often during a run you can control the compiling yourself by using a scalar variable to store the compiled regular expression using qr, as shown in this example:

  

$local = "TR|PL|EX|TQ|TA|SN|BA|BS|DT|BH|GL";

$pcode = qr/^\s*($local)\d\w?\s+\d[A-Z]{2}\s*$/;



@vcheck = ("SN12 6QL","G3 7XR","GLZ 7PX"," OX11 0EY","NW1 1AD");



foreach $tp (@vcheck) {

        $tp =~ $pcode and print "$1\n";

        }

This gave me the single result "SN" as being the only valid postcode within the areas listed in $local.
(written 2006-02-09 05:08:13)

 P669 - Perl - Data Munging
P212 - Perl - More on Character Strings

Back to The magic of -textvariable

Previous and next or Horse's mouth home

Forward to Should we cruise around the world?

A fond memory of Sir Freddie
It costs nothing to say THANK YOU
Perl/Tk real time display
Should we cruise around the world?
Storing a regular expression in a perl variable
The magic of -textvariable
Add a friendly front end with Tk
Twice is a co-incidence and three times is a pattern
Finding where the disc space has gone
NOT Gone phishing