ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ed V. Bartosh                        2:5020/400     21 Jul 2001  20:35:10
 To : Alex Railyan
 Subject : Re: regexp
 -------------------------------------------------------------------------------- 
 

 
 Hi, Alex!
 
 /Sat, 21 Jul 2001 13:19:00 +0400/ Alex Railyan wrote to All:
 
 AR> скажем
 AR> $a = '<img align="right" id="123" border=0><img border="0" id=125
 AR> align=right >';
 
 AR> как легче зазаменить id=nomer на src=/images/nomer.gif
 
 "По-простому" так:
 $a=~s|id="?(\d*)"?\s+|src="/images/$1.gif" |gs;
 
 кавычки в результате (src="...") будут всегда - так ближе к XHTML, то бишь
 правильнее.
 
 Если делать замену скажем в большом HTML тексте, но только в тэгах <img>, то
 можно
 так:
 $a=~s|(<img[^>]*\s+)id="?(\d+)"?(\s+[^<]*>)|$1src="/images/$2.gif"$3|gs;
 хотя такая штука не всегда будет работать правильно (например
 <img ... id="0000" alt="<<< cool >>>" ... > )
 
 Hу и самый надежный вариант - "использовать алгоритмы анализа 
 HTML кода из LWP" (C)Perl Cookbook
 
 -- 
 Best regards, Ed
 
 Let's call it an accidental feature.
   -- Larry Wall
 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Ed @ home (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    regexp   Alex Railyan   21 Jul 2001 13:19:00   Re: regexp   Ed V. Bartosh   21 Jul 2001 20:35:10   regexp   Samson Babayants   21 Jul 2001 21:40:16   Re: regexp   Alexander Babanov   23 Jul 2001 11:51:17