ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 12 Nov 2004 21:54:56
To : Alex Shevchuk
Subject : Re: Замена при условии
--------------------------------------------------------------------------------
Alex Shevchuk пишет:
> Имеется строка, в которой могут встречаться штуки вида ":имя:".
> Hужно заменить рэгэкспом эти штуки на "<img src=smiles/имя.gif>" при условии,
> что имя.gif существует. Менять можно не более трех таких фиговин.
>
> (Это типа смайлики в чате).
my $x = 0; s|:(\w+):|$x < 3 && -f "$1.gif" ? ($x++, "<img src=smiles/$1.gif>") :
$&|ge;
--
Andrey
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по:
|
