VPF::Помогите разобраться с регуляркой

FiMa1

Дата 7.1.2010, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 23.9.2006

Репутация: нет
Всего: 6

Ребята, привет всем!

Выручайте! Уже который час бьюсь с регуляркой, перепробовал тысячу вариантов. Проверял в двух конструкторах регулярных выражений, должно работать, но увы...

Содержимое обрабатываемого файла:

Цитата

aback{aback}    назад{назад=ADV=|назад=PR=}

aback{aback}    задом{зад=S,муж,неод=твор,ед|задом=ADV=}

abandon{abandon}    отвергать{отвергать=V=инф,несов}

abandon{abandon}    отказываться{отказывать=V=инф,несов,страд|отказываться=V=инф,несов}

abbreviation{abbreviation}    сокращение{сокращение=S,сред,неод=им,ед|сокращение=S,сред,неод=вин,ед}

abnormal{abnormal}    неправильный{неправильный=A=им,ед,муж|неправильный=A=вин,ед,муж,неод}

abnormal{abnormal}    аномальный{аномальный=A=им,ед,муж|аномальный=A=вин,ед,муж,неод}

Строка кода:

Код


while ($fdict =~ m/\t(.+?)\{.+?=\b(A|ADV|CONJ|INTJ|NUM|PART|PR|S|V|ANUM|APRO|ADVPRO|SPRO).+?,(ед|мн)/g) {
        print $& . "\n";
}

Первый проход:
$& = aback{aback}    "задом{зад=S,муж,неод=твор,ед" - ОК

Второй проход:
$& = abandon{abandon}        "отказываться{отказывать=V=инф,несов,страд|отказываться=V
abbreviation{abbreviation}      сокращение{сокращение=S,сред,неод=им,ед" - ПОЧЕМУ?

Я ничего не понимаю. Perl пользую нечасто и каждый раз какие-то заморочки с регэкспами.
Уж вроде бы и поиск-то не жадный, но все равно цепляет лишнее.

Perl: ActivePerl-5.10.1.1006-MSWin32-x86-291086

Это сообщение отредактировал(а) FiMa1 - 7.1.2010, 22:16

sir_nuf_nuf

Дата 8.1.2010, 01:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 1
Всего: 31

потому что у вас регулярка заканчивается на

Код


(ед|мн)

в строке

Цитата(FiMa1 @ 7.1.2010, 22:08

)

abandon{abandon} отказываться{отказывать=V=инф,несов,страд|отказываться=V=инф,несов}

этих слов нет.

поэтому прихватывает следующую строку

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Регулярные выражения \| Следующая тема »