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

  • Автор темы CLSAMG
  • Дата начала
C

CLSAMG

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

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

arto

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