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

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

CLSAMG

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

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

Выводит не все слова, помогите оптимизировать скрипт.
 
P

ProFTP

Код:
@res=$txt=~/\s((при|пре)[А-ПР-Яа-пр-я]+)/g;

опция i игнорирует регистр символов
Код:
@res=$txt=~/\s((при|пре)[А-ПР-Яа-пр-я]+)/ig;

или в чем вопрос?
 
A

arto

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!