как обратиться к шаблону?

[kerry]

есть текстовый файл с набором перловских регулярных выражений, написан в таком виде:

regexp1
regexp2
...
regexpN

 я могу построчно прочитать файл, сохраняя строку в переменную, но не знаю, как заставить перл относиться к полученной переменной как к шаблону. При каждом использовании программы задаются новые шаблоны, поэтому чтобы не трогать код, эти шаблоны было решено выложить в отдельный файл.

вот что есть на текущий момент:


...

Код:

open RULEZZZ, '<rules.sh>';
@rules=<RULEZZZ>;
open SENTENCE, '>SENTENCES.txt';

	foreach $arg (@rules)
	{
				$regexp = rx /$arg/; # на эту строчку интерпретатор ругается.
				if ($str=~ /(<$regexp>)/) 
					{
					printf SENTENCE $str;
					}		
	}
print "DONE!";
close;

здесь из файла берется строчка, оператором rx, про который я прочитал вот здесь http://perl6.ru/2004/02/
превращается в выражение и далее идет попытка поиска.

вопрос в следующем: как скормить программе этот файл, чтобы она построчно считывала выражения и в соответствии с ними искала строку? может есть альтернативные решения, как не трогать основной код программы?

[RXL]

Perl6 — это не то, что тебе нужно. Читай Perl5. Это не одно и тоже!

http://perldoc.perl.org/perlop.html#Regexp-Quote-Like-Operators

Код: (Perl)

my ($fd, @rules_re);
open $fd, '<', 'rules.sh' or die 'open: ' . $!;
push @rules_re, qr($_) while <$fd>;
close $fd;

my $str = 'aaaaaaaa';

for my $re (@rules_re) {
  next unless $str =~ $re;
  print "Done!\n";
  last;
}