|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Victor Wagner 2:5020/400 12 Nov 2004 19:06:29
To : "Alex Shevchuk"
Subject : Re: Замена при условии
--------------------------------------------------------------------------------
Alex Shevchuk <asciiz@e-cons.ru> wrote:
AS>Hi All!
AS>Вопросик есть...
AS>Имеется строка, в которой могут встречаться штуки вида
AS>":имя:". Hужно заменить рэгэкспом эти штуки на "<img
AS>src=smiles/имя.gif>" при условии, что имя.gif существует.
AS>Менять можно не более трех таких фиговин.
AS>(Это типа смайлики в чате).
AS>Проблема в том, что условие задачи менять нельзя. :)
1. Сначала конструируешь список имен существующих файлов
Hапример
@smile_list = map {s/\.gif$//;$_} <*.gif>;
Потом конструируешь из него регексп
$regexp=":(".join("|",@smile_list)."):";
Потом заменяешь
$line=~s/$regexp/$1.gif/;
--
--- ifmail v.2.15dev5.3
* Origin: Free Net of Leninsky,45 (2:5020/400)
Вернуться к списку тем, сортированных по:
|
