|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alex Shevchuk 2:5020/400 15 Nov 2004 13:22:41
To : Andrey Sapozhnikov
Subject : Re: Замена при условии
--------------------------------------------------------------------------------
Fri Nov 12 2004 19:54, Andrey Sapozhnikov wrote to Alex Shevchuk:
>> Имеется строка, в которой могут встречаться штуки вида ":имя:".
>> 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;
Здорово! Кто бы мог подумать, что внутрь регекспа можно цикл запихнуть! :))
Только вот почему $&, а не $1? Или в данном случае без разницы?
Best regards, Alex.
--- ifmail v.2.15dev5.3
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по:
|
