PERL Спец символы в регулярке через переменную
Добавлено: 2010-05-09 13:29:21
Здравствуйте
Есть небольшой скрипт, для поиска в лог файлах, запускается из строки в виде ./parser.pl pattern, а результат скидывает в отдельный файл, его потом черех www просматривают
выглядит вкратце так, заранее извиняюсь перед знатоками за корявость, не кодер)
подскажите пожалуйста, как сделать, что-бы в шаблоне поиска, передаваемом через переменную, могли присутствовать спецсимволы.. то есть например там может быть что-нить типа ~^mega_user^~, скрипт неадекватно реагирует на такие предъявы)
есть подозрение что я вообще везде не прав в этом скрипте
заранее спасибо
ЗЫ. .с правдником товарищи !:)
Есть небольшой скрипт, для поиска в лог файлах, запускается из строки в виде ./parser.pl pattern, а результат скидывает в отдельный файл, его потом черех www просматривают
выглядит вкратце так, заранее извиняюсь перед знатоками за корявость, не кодер)
Код: Выделить всё
$path="/logs/items/*.log.*";
@a= glob($path);
&conc(@a);
# собственно сам поиск.. то есть если строка совпадает с аргументом переданным для поиска, строка скидывается в массив, который потом пишется в файл
foreach $arg(@ARGV){
foreach(@all){
if( /($arg)/g ){
push(@out,"$_");
}
}
&wfile(@out);
$#out=-1;
}
# тут спихивает содержимое всех файлов в массив
sub conc(){
foreach(@a){
open(F,"$_");
my @lines= <F>;
close(F);
push(@all,@lines);
}
return @all;
}
есть подозрение что я вообще везде не прав в этом скрипте
заранее спасибо
ЗЫ. .с правдником товарищи !:)