ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Saigo 2:5020/400 05 Jul 2001 15:35:21
To : All
Subject : поиск url в тексте
--------------------------------------------------------------------------------
Здравствуйте.
пишу так:
$urls='(http|telnet|gopher|file|wais|ftp)';
$ltrs='\w';
$gunk='/#~:.?+=&%@!\-';
$punc='.:?\-';
$any="${ltrs}${gunk}${punc}";
$text=~s{\b($urls:[$any]+?)(?=[$punc]*[^$any]|$)}{<a href="$1">$1</a>}igox;
результат:
было: посмотрите на сайт http://www.peterlink.ru
стало: посмотрите на сайт <a
href="http://www.peterlink.ru">http://www.peterlink.ru</a>
всё правильно, но хочется, чтобы было:
посмотрите на сайт <a href="http://www.peterlink.ru">www.peterlink.ru</a>
не подскажете, как это сделать?
Евгения
--- ifmail v.2.15dev5
* Origin: Peterlink News System (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
