|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Frolcov 2:5020/400 26 Jul 2002 19:03:37
To : Victor Wagner
Subject : Re: А как сделать чтобы тек ст в [ ] не заменялся?
--------------------------------------------------------------------------------
> SVL> в perl нет выражения 'не заменять', есть 'заменить найденное',
> SVL> а как собрать эти 3 выражения в одно я не знаю (да и так нормально)
>
> Я бы посплитил по регекспу /(\[\])/ а потом бы заменял только
> в тех элементах списка, у которых остаток от деления номера на четыре
> равен 0
А может, как-нибудь так?
$_="dodolala [zzz dodo ssss sss] zaa dodo [aaa dodo aaa]zz dodo lala dodo";
print $_,"\n";
while(s/(
(?:^|\])
[^\[]*
)
dodo
(
[^\]]*
(?:|\[|$)
)/$1QUQU$2/x){};
print;
ЗЫ с /g не проходит, проскакивает между последней ] и концом строки
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
