Помогите с поиском.

Тема в разделе "Perl программирование", создана пользователем CLSAMG, 14 окт 2010.

  1. CLSAMG

    CLSAMG Гость

    Уважаемые форумчане прошу Вашей помощи!
    Дан текст найти все слова начинающиеся с приставки ПРИ- и ПРЕ-.

    Что смог написать:
    Код (Text):
    $txt = "вы пригород прогород преступление ПрИвао яма пророк не ПРИВЕТ ПРИ\\\ при делах, запри дверь запредельно";
    @res=$txt=~/\s((при|пре)[А-ПР-Яа-пр-я]+)/g;
    print "@res\n";
    Выводит не все слова, помогите оптимизировать скрипт.
     
  2. ProFTP

    ProFTP Member

    Регистрация:
    20 ноя 2011
    Сообщения:
    6
    Симпатии:
    0
    Код (Text):
    @res=$txt=~/\s((при|пре)[А-ПР-Яа-пр-я]+)/g;
    опция i игнорирует регистр символов
    Код (Text):
    @res=$txt=~/\s((при|пре)[А-ПР-Яа-пр-я]+)/ig;
    или в чем вопрос?
     
  3. arto

    arto Member

    Регистрация:
    21 июн 2006
    Сообщения:
    10
    Симпатии:
    0
    # perl -CSA -Mutf8 -le 'print join "\n", ( $ARGV[0] =~ m#\b(пр[еи].*?)\b#gi )' "вы пригород прогород преступление ПрИвао яма пророк не ПРИВЕТ ПРИ\\\ при делах, запри дверь запредельно"
    пригород
    преступление
    ПрИвао
    ПРИВЕТ
    ПРИ
    при
    #
     
Загрузка...

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