Re: regex matching using arrays

Yes you can, by using logical OR in regex

use strict;
use warnings;

my @bah = ( "Australia", "Austria", "Finland", "Norway" );
my $regex = join ('|', map { "(?:$_)" } @bah);

my $foo = "In Australia the people from Austria drink beer at the pub 
+with the people from Norway";

my $result = "";
my @data = $foo =~ /($regex)/g;

print join ", ", @data;
[download]

HTH

--
zejames

Comment on Re: regex matching using arrays Download Code

Replies are listed 'Best First'.
Re^2: regex matching using arrays by rsiedl (Friar) on Dec 04, 2004 at 11:08 UTC
Cool, thanks zejames. Do you know if there is a limit on the size that $regex can take? i.e. if the array is really big will it break things?	[reply]
Re^3: regex matching using arrays by BUU (Prior) on Dec 04, 2004 at 11:34 UTC
Your regex will extend up to the maximum size of your scalars.. which can go past the size of your physical memory! However, I'm sure after a few hundred OR clauses the regex will get bloody slow. You should probably bench it.	[reply]
Re^3: regex matching using arrays by ikegami (Patriarch) on Dec 05, 2004 at 17:34 UTC
Of course, that loops over the array twice (map and join)	[reply]
Re^3: regex matching using arrays by graff (Chancellor) on Dec 08, 2004 at 03:52 UTC
Do you know if there is a limit on the size that $regex can take? i.e. if the array is really big will it break things? If you have a large word list, and you're trying to determine which of those words occur in a given text of arbitrary length, the best approach is likely to be to store the word list in a hash, then tokenize the text string; for each tokenized word in the string, if that word exists as a hash key, you've got a hit (append that word to your output list). This way, you've got one simple loop over the "lexicon" (to store the word list as hash keys), and one loop over the word tokens in the text string; you're doing plain string comparisons (best to put everything in monocase) instead of regex matches, so it should be pretty quick.	[reply]