Re: 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/;
    }
[download]

This reads from STDIN, so invoke it like this:

    % foo.pl file
[download]

Comment on Re: matching an array of alternates Select or Download Code

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;` [download] This way, the regular expression only has to be compiled once. - Zoogie	[reply] [d/l]