ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vitus@ice.ru                         2:5020/400     13 Nov 2000  20:06:22
 To : Sly Golovanov
 Subject : Re: regexp: исключение
 -------------------------------------------------------------------------------- 
 

 Sly Golovanov <Sly.Golovanov@p13.f794.n5020.z2.fidonet.org> wrote:
 
 SG>За что я не люблю утро, Lokhin,- оно всегда наступает, когда я сплю...
 
 SG> Когда часы с дятлом пробили Среда Hоябрь 01 2000 11:21 и стену, сквозь дыру
 SG>стало слышно разговор 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;
 
 SG>хм. работает.
 SG>а если усложнить задачу - сочетание "color=red" может быть в любом месте
 SG>тега, к примеру <font size=1 color=red face=Verdana> ?
 
 Hу тогда судьба тебе use HTML::Filter
 
 SG>    Hе пpощаюсь                                            [Стадо Котов]
       >> SLY <
 
 -- 
 Victor Wagner      vitus@ice.ru
 Chief Technical Officer    Office:7-(095)-785-09-72
 Communiware.Net    Home: 7-(095)-135-46-61
 http://www.communiware.net      http://www.ice.ru/~vitus
 --- ifmail v.2.15dev5
  * Origin: Siberian Internet Company (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Re: regexp: исключение   vitus@ice.ru   13 Nov 2000 20:06:22   regexp: исключение   Sly Golovanov   14 Nov 2000 04:48:48