forum.lissyara.su

Добавлено: **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.

что с этим делать я не понял...

Добавлено: **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

Добавлено: **2010-09-17 20:41:17**

рабоатет:

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

$text =~ s#<v:imagedata src="(.*?)" (.*?)\/>#--><img src="$1" alt="" \/><!--#igs;

блин, забыл, что жадные квантификаторы

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

(.*.)

захватывали всё, по этому не работало

forum.lissyara.su

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

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

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

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