|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Sly Golovanov 2:5020/794.13 05 Nov 2000 14:15:48 To : Lokhin Victor Subject : regexp: исключение -------------------------------------------------------------------------------- Когда часы с дятлом пробили Среда Hоябрь 01 2000 11:21 и стену, сквозь дыру стало слышно разговор Lokhin Victor и All: LV> From: "Lokhin Victor" <lova@ems.ru> >> $s='<font color=red><font color=green>'; LV> $s=~ s/<font\s(?:.(?!red))*?>//igs; >> print $s; хм. работает. а если усложнить задачу - сочетание "color=red" может быть в любом месте тега, к примеру <font size=1 color=red face=Verdana> ? Hе пpощаюсь [Стадо Котов] > SLY < --- Силиконовая долина - это искусственная Лариса * Origin: Absolute Games, http://www.ag.ru (2:5020/794.13) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/259933a055dc1.html, оценка из 5, голосов 10
|