Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: matching an array of alternates

by btrott (Parson)
on Jun 23, 2000 at 23:17 UTC ( #19645=note: print w/replies, xml ) Need Help??

in reply to matching an array of alternates

Build a regular expression that will match those countries, then scan through the file and check each line against it:
my $regex = join '|', @latin_am; while (<>) { print $1 if /$regex/; }
This reads from STDIN, so invoke it like this:
% file

Replies are listed 'Best First'.
RE: Re: matching an array of alternates
by Zoogie (Curate) on Jun 23, 2000 at 23:54 UTC
    Just wanted to point out that if the file you're searching has a lot of lines, you can gain some speed by adding the "o" option to the regex; i.e.:
    print $1 if /$regex/o;
    This way, the regular expression only has to be compiled once.

    - Zoogie

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://19645]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2016-10-24 10:31 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (304 votes). Check out past polls.