VPF::Не работает рег.выражение - Форум программистов

igorold

Дата 5.2.2008, 10:22 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

Репутация: 3
Всего: 17

есть текст:

Код


|101,03FF|102,00000318|103,05bd|105,52000100084002|106,2007-01-17|107,1989-11-05|108,1|110,ДАВЫДОВ|111,АНДРЕЙ|112,АНДР
ЕЕВИЧ|113,2006-12-14|114,2006-12-13|116,ГОРЬКОВСКАЯ ОБЛ. Г.АРЗАМАС-16|117,НИЖЕГОРОДСКАЯ ОБЛ. Г.САРОВ УЛ.МУЗРУКОВА [color=crimson]12|1-21[/color]|118,ФГУ ИЗ-[color=crimson]52|1 Г[/color]
УФСИН МЮ РФ ПО НИЖЕГОРОДСКОЙ ОБЛ.|120,ПО 2-МУ ДЕЛУ ПО ПОСТ. Р/С Г.САРОВА НИЖЕГОРОДСКОЙ ОБЛ.|121,161 Ч.1 УК РФ

Необходимо в тексте с тегами, а тег представляет собой символ | далее код из 3-х цифр и запятая.
Необходимо заменить все символы | не входящие в теги на символ /
Следующее рег - выражение не всегда работает

Код


$line=~s!\|([^\d\d\d\,])!\/$1!g;

например оно не меняет 12|1-21 на 12/1-21

Помогите подправить рег. выражение

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

... у семи нянек 14 сисек ...
Putin here, Putin there, Putin almost everywhere!

AlexPet

Дата 5.2.2008, 11:27 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(igorold @ 5.2.2008, 10:22

)

например оно не меняет 12|1-21 на 12/1-21

Попробуйте так:

Код


$line=~s#\|(?!\d{3}\,)#/#g;

igorold

Дата 5.2.2008, 12:15 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

Репутация: 3
Всего: 17

AlexPet, спасибо, так работает smile

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

... у семи нянек 14 сисек ...
Putin here, Putin there, Putin almost everywhere!

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