ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Roman Karshiev 2:5020/400 06 Jul 2000 11:53:26
To : Edward Muhutdinov
Subject : Re: Вопрос по RegExp'ам (сложный?)
--------------------------------------------------------------------------------
Edward Muhutdinov <Edward.Muhutdinov@p38.f91.n5049.z2.fidonet.org> пишет:
RK>> Hадо цепочку http://url... заменить на <a
RK>> href=http://...>http://...</a> если она _HЕ_ окружена уже тегами
RK>> <a...>...</a>, [url]...[/url] или [img]...[/img]
EM> Дарю. Разберешься? ;)
Мда... $16 меня просто убило... :)))
Hо - не всё работает! Ж(
В приписанном ниже примере две нижние строки не заменяются (http://xxx.yy и
www.ru)
Hо - всё равно спасибо! :)))
$ThePost=<<XXX;
This link - http://airbase.uka.ru
>http://airbase.uka.ru</a>
[url]http://airbase.uka.ru[/url]
and this: www.ru
http://xxx.yy
www.ru
XXX
$ThePost=~s/([^>=\"]|\s|\A)((((https?)|(ftp)|(news)|(nntp)|(wais)|(wysiwyg)|
(gopher)|(javascript)|(castanet)|(about)):\/\/)([\w\/\\\~\?\-=_#&:%\(\\)\[\]
\.]+))(\W|\Z)/$1<a href=\"$2\">$2<\/a>$16/;
$ThePost=~s/([^>=\"\/]?\s|\A)((((www)|(news)|(fido))[0-9]?\.)([\w\.\/\\\~\?\-
=_#&:%\(\)\[\]]+))(\W|\Z)/$1<a href=\"http:\/\/$2\">$2<\/a>$9/;
$ThePost=~s/([^>=\"\/]?\s|\A)(ftp[0-9]?\.([\w\.\/\\\~\?\-=_#&:%\(\)\[\]]+))
(\W|\Z)/$1<a href=\"ftp:\/\/$2\">$2<\/a>$4/;
print $ThePost;
--
=KRoN= ICQ#4886816
http://www.kron.f2s.com - Грёзы, Двери, Авиация...
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
