[perl] регулярное выражение, обойти абзац

И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

[perl] регулярное выражение, обойти абзац

Непрочитанное сообщение ProFTP » 2010-09-17 2:33:30

есть регулярнео выражение для замены, точнее для обработки картинок:

Код: Выделить всё

$text =~ s#<v:imagedata src="(.*.)" (.*.)\/>#--><img src="$1" alt="" \/><!--#ig;
есть участок текста, где данное рег. выр. не работает, по причине что стоит абзац...!!

Код: Выделить всё

   <v:imagedata src="./RGDMETMP1.files/image011.jpg" o:title="" gain="1.5625"
    blacklevel="-5898f"/>
тут есть много текста, по этому просто удалить обзац не получится...!

как тут написать это рег.выр. чтобы была замена, как обойти обзац (перенос строки) ??

я пробовал так:

Код: Выделить всё

$text =~ s#<v:imagedata src="(.*.)" (.*.)\/>#--><img src="$1" alt="" \/><!--#gsxie;
но отвичет:

Код: Выделить всё

/per.pl > 11
syntax error at ./per.pl line 30, near "-->"
Execution of ./per.pl aborted due to compilation errors.
что с этим делать я не понял...
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

Аватара пользователя
thefree
лейтенант
Сообщения: 980
Зарегистрирован: 2008-12-29 9:23:19
Откуда: Весёлая Страна

Re: [perl] регулярное выражение, обойти абзац

Непрочитанное сообщение thefree » 2010-09-17 10:10:23

1. пиздец
2. пиздец
3. ох бля
4. http://realcode.ru/regexptester/
5. символ - экранируется
6. http://www.google.ru/search?ie=UTF-8&q=regexp+perl
Не судите меня строго, Я не волшебник, а только учусь!
http://planetbsd.ru - RSS-агрегатор *BSD по Рунету

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: [perl] регулярное выражение, обойти абзац

Непрочитанное сообщение ProFTP » 2010-09-17 20:41:17

рабоатет:

Код: Выделить всё

$text =~ s#<v:imagedata src="(.*?)" (.*?)\/>#--><img src="$1" alt="" \/><!--#igs;
блин, забыл, что жадные квантификаторы захватывали всё, по этому не работало
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение