|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sly Golovanov 2:5020/400 31 Oct 2000 18:35:25
To : All
Subject : regexp: исключение
--------------------------------------------------------------------------------
Фрагмент кода
$s='<font color=red><font color=green>';
$s=~s/<font.+?red.*?>//igs;
print $s;
работает так, как от него ожидаю - выводит
<font color=green>
то есть удаляет тег <font color=red>.
А вот фрагмент кода
$s='<font color=red><font color=green>';
$s=~s/<font.+?(?!red).*?>//igs;
print $s;
от которого я хочу "удалить все теги font, кроме тех, внутри которых
есть red" - удаляет просто все теги. почему? как правильно написать то,
что я хочу?..
--- ifmail v.2.15dev5
* Origin: Absolute Games (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
