Xpoint
   [напомнить пароль]

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

Метки: [без меток]
2010-10-18 22:56:04 [обр] Ivan[досье]
Прошу помощи у форумчан.
Дан текст найти и вывести все слова начинающиеся с приставок при- и пре-.
Все что я смог сделать:
$txt="вы пригород преступление пре\\ ПРЕДМЕТ яма ПРИ// ПРИВЕТ пророк при делах,запри запредельно";
@res=$txt=~/\s(?:при|пре)(?:[А-ПР-Яа-пр-я]+)/g;
print "@res\n";
Как указать все возможные варианты сочетания приставок (т.е. ПрИ ПРе и т.д.)?
спустя 21 минуту [обр] Евгений Седов aka KPbIC(0/187)[досье]
#! /usr/bin/perl

use strict;
use warnings;
use encoding 'utf8';

my $text = "вы пригород преступление пре\\ ПРЕДМЕТ яма ПРИ// ПРИВЕТ пророк при делах,запри запредельно";

my @result = $text =~ /\b(пр(?:и|е)\w+)/gi;

print "@result\n";
Powered by POEM™ Engine Copyright © 2002-2005