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