|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitriy Goldobin 2:5020/400 09 Aug 2000 22:37:24
To : All
Subject : Re: Перл умирал ? (и вопрос по RegExp)
--------------------------------------------------------------------------------
Hi!
> И антиоффтопик (весьма актуальный сейчас):
>
> Есть хеш %link.
> Вида $link{key}=url;
> Hадо в имеющейся строке заменить все key на <a href=url>key</a>
[]
> Если key уже заключён в <a....>...</a> любой удалённости (<a
> href=...><b>...Х-31...</b></a>) - то замену делать не надо.
>
> Твёрдо знаю, что такое можно сделать в одну строку, но у меня не
> получается :))
> Использую пока бред типа
>
>
$hts=~s/(^|[\s\,\.\/\(\)\>]+)(.+?)(?=([\s\,\.\/\(\)\<]+|$))/$links{$2}?"$1<a
> href=$links{$2}>$2<\/a>":"$1$2"/gme;
>
$hts =~ s!(<a .*?</a>|[a-z0-9\-]+)!$links{$1} ? "<a href=$links{$1}>$1</a>"
: $1!gise;
полный набор допустимых символов сам расписывай
Bye.
--- ifmail v.2.15dev5
* Origin: Electronic Microsystems JSC (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
