ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Lokhin Victor                        2:5020/400     14 Nov 2000  10:55:45
 To : All
 Subject : Re: regexp: исключение
 -------------------------------------------------------------------------------- 
 

 > хм. работает.
 > а если усложнить задачу - сочетание "color=red" может быть в любом месте
 
 тега,
 
 > к примеру <font size=1 color=red face=Verdana> ?
 
 $s = <<EOT;
 <font size=1 color=red face=Verdana>
 <font color=red size=1 face=Verdana>
 <font size=1 face=Verdana color=red>
 <font size=1 color=black face=Verdana>
 <font color=black size=1 face=Verdana>
 <font size=1 face=Verdana color=black>
 EOT
 
     $s=~ s/<font\s(?:(?!color\s*=\s*red).)*?>//giso;
     print "$s\n";
 --- ifmail v.2.15dev5
  * Origin: HEPN (2:5020/400)
 
 

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