|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ilyak Kaznacheev 2:5020/400 16 Nov 2004 19:31:18
To : Artem Chuprina
Subject : Re: Замена при условии
--------------------------------------------------------------------------------
.RFC-Message-ID: <bs6kp0pc3dih9ne3m96ch9dkdvaeel2ch4@4ax.com>
.RFC-References: <cn2td8$1gt0$1@ddt.demos.su>
<cn9sg6$j5d$21763@www.fido-online.com> <86k6sne0fv.fsf@tigger.lan.cryptocom.ru>
From: Ilyak Kaznacheev <ilyak@online.ru>
Logged on as Ilyak(Online)
> >>> Имеется строка, в которой могут встречаться штуки вида ":имя:".
> >>> Hужно заменить рэгэкспом эти штуки на "<img src=smiles/имя.gif>" при
> >>> условии, что имя.gif существует. Менять можно не более трех таких
> >>> фиговин.
> >>> (Это типа смайлики в чате).
> AS>> my $x = 0; s|:(\w+):|$x < 3 && -f "$1.gif" ? ($x++, "<img
> AS>> src=smiles/$1.gif>") : $&|ge;
> AS> Здорово! Кто бы мог подумать, что внутрь регекспа можно цикл
> >>> запихнуть! :))
>Любой, кто читал perldoc perlre.
Полчаса читал вчера perlre - не нашел там этого.
А зато нашел в perlop :)
--
Not logged on. Reconnecting..........
--- ifmail v.2.15dev5.3
* Origin: Оправдывает ли цель средства -- задача, в общем виде н (2:5020/400)
Вернуться к списку тем, сортированных по:
|
