ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/5609.69 19 Feb 2001 08:15:55
To : Ruslan Bondarev
Subject : Re: Хитрая замена подстроки регекспом.
--------------------------------------------------------------------------------
Юґullo Ruslan!
AB>> Можно и одним. Хитрым :)
AB>> sub parse {
AB>> $_ = shift;
AB>> s{<(\w+)>(.*?)</\1>}{parse($2); " "}sie;
AB>> print;
AB>> }
AB>> parse("<body><i><b>Jessie</b>the</i>Body</body>");
RB> А что произойдет при встрече унарного тага? Типа <br>?
RB> То-то же.
Hе наглей, это было двухминутное решение :) И потом, просили разобрать
вложеные тэги, с <br> все гораздо проще.
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/5609.69 ДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/5609.69)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
