|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Marunin 2:5020/400 05 Feb 2002 17:36:12
To : All
Subject : Много раз сравнить с регеэкспом
--------------------------------------------------------------------------------
Hello, All
Hикак не могу такую проблему решить: есть список регэкспов, на вход
поступают строки и надо определить какому именно регэкспу эта строка
соответствует. Hо периодически надо переконфигугироваться, поэтому /o нее
подходит :(
В perldoc есть такой пример
@popstates = qw(CO ON MI WI MN);
@poppats = map { qr/\b$_\b/i } @popstates;
while (defined($line = <>)) {
for $patobj (@poppats) {
print $line if $line =~ /$patobj/;
}
}
Hо тоже не очень, так как тут не определяется какому именно регэкспу она
подошла.
Как народ решал такую проблему?
Vladimir Marunin
--- ifmail v.2.15dev5
* Origin: Portal (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
