Как Обратиться К Шаблону На Perl?

Тема в разделе "Другие", создана пользователем kerry, 4 дек 2013.

  1. kerry

    kerry New Member

    Регистрация:
    4 дек 2013
    Сообщения:
    1
    Симпатии:
    0
    есть текстовый файл с набором перловских регулярных выражений, написан в таком виде:

    regexp1
    regexp2
    ...
    regexpN

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

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


    ...

    Код (Text):
    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/
    превращается в выражение и далее идет попытка поиска.

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

Поделиться этой страницей