ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sasha Chorny                         2:469/75.23    13 Nov 2000  00:11:28
 To : Sly Golovanov
 Subject : ?!
 -------------------------------------------------------------------------------- 
 

 
 Monday October 30 2000 10:59, Sly Golovanov wrote to All:
 
  SG> $s='<font color=red><font color=green>';
  SG> $s=~s/<font([^>]*)(?!red)([^>]*)>//ig;
  SG> print $s;
 
 Ты неправильно понимаешь смысл ?!
 
  SG> выводит пустую строку - то есть, замена заменяет все фонты. почему?
  SG> как правильно написать "удалить все фонты, кроме тех, внутри которых
  SG> есть слово 'red'" ?
 
 Hе совсем универсальное решение:
 $s=~s/<font([^>]*)=(?!red)([^>]*)>//ig;
 
     Have a nice day. Sasha.                       [Team MOO]  [Team Ada]
 --- ifmail v.2.15dev5
  * Origin: Sex on TV is bad, you might fall off... (2:469/75.23)
 
 

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

Тема:    Автор:    Дата:    ?!   Sly Golovanov   30 Oct 2000 11:59:17   ?!   Sasha Chorny   13 Nov 2000 00:11:28   ?!   Sly Golovanov   20 Nov 2000 01:08:12   ?!   Sasha Chorny   22 Nov 2000 23:30:08