|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Sly Golovanov 2:5020/794.13 14 Nov 2000 04:48:48 To : vitus@ice.ru Subject : regexp: исключение -------------------------------------------------------------------------------- Когда часы с дятлом пробили Понедельник Hоябрь 13 2000 19:06 и стену, сквозь дыру стало слышно разговор vitus@ice.ru и Sly Golovanov: >>>> $s='<font color=red><font color=green>'; LV>>> $s=~ s/<font\s(?:.(?!red))*?>//igs; >>>> print $s; SG>> хм. работает. SG>> а если усложнить задачу - сочетание "color=red" может быть в любом SG>> месте тега, к примеру <font size=1 color=red face=Verdana> ? v> Hу тогда судьба тебе use HTML::Filter да мне не столько html, сколько в регекспах поднатореть нужно Hе пpощаюсь [Стадо Котов] > SLY < --- Мыль паpдон * Origin: Absolute Games, http://www.ag.ru (2:5020/794.13) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/259933a10b63b.html, оценка из 5, голосов 10
|