ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/5609.69 05 Jul 2001 12:10:46
To : Saigo
Subject : Re: поиск url в тексте
--------------------------------------------------------------------------------
Юґullo Saigo!
S> $text=~s{\b($urls:[$any]+?)(?=[$punc]*[^$any]|$)}{<a
S> href="$1">$1</a>}igox;
S> результат:
S> было: посмотрите на сайт http://www.peterlink.ru
S> стало: посмотрите на сайт <a
S> href="http://www.peterlink.ru">http://www.peterlink.ru</a>
S> всё правильно, но хочется, чтобы было:
S> посмотрите на сайт <a
S> href="http://www.peterlink.ru">www.peterlink.ru</a>
S> не подскажете, как это сделать?
Hапример так:
$text=~s{\b($urls://)([$any]+?)(?=[$punc]*[^$any]|$)}{<a
href="$1$3">$3</a>}igox;
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/5609.69 ДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/5609.69)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: поиск url в тексте 
