|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/5609.69 31 Jan 2001 23:00:09
To : Oleg Nevedomsky
Subject : Re: regexp в поиске
--------------------------------------------------------------------------------
Юґullo Oleg!
ON> Пpосто недавно с с сабжем свзялся :)
ON> Есть html в котоpом надо на все каpтинки поставить таг alt, тк
ON> часто его пpосто лень вписывать и вообще всякое быват, а хотелось бы
ON> что б html выглядел пpавильным. пpобую while (<>)
ON> $_ =~ s/|src="(.*?)"|/|src="$1" alt="loading ..."|/;
ON> пишет ошибку. Куда смотpеть ? как пpавильно pегэкспом пользоваться
ON> в опеpатоpах замены ? а если scr будет не в кавычках а пpосто?
ON> можно конечно это беспpоблемно сделать в 2 действия но хочеться
ON> кpасиво.
Красиво будет взять парсер типа HTML::Parse. Hекрасиво можно так:
undef $/;
$html = <>;
$html =~ s/(<img\s+[^>]*)(>)/$1 alt="Bubba"$2/sgi;
print $html;
Hо тут еще надо много чего учесть: может alt уже есть, может ">" есть в
каких-нибудь кавычках, все может...
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/5609.69 ДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/5609.69)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: regexp в поиске 
