ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Savostjanov Denis 2:5020/400 03 Jan 2002 19:27:51
To : All
Subject : регулярное выражение
--------------------------------------------------------------------------------
Привет!
Hужно регулярное выражение(ния) для определения в тексте HTML ссылки
например такой текст:
http://mugger.virtualave.net/cgi-bin/YaBB.pl
http://refridg:plants@www.asspdfdflgdace.com/memdfbers/index.html
http://paul6dfsd66:wisdfggins@www.assfddsffsdffpdfdfsaваlace.com/members/ind
ex.html
http://shfgerwsdfood:elfgementa@www.barbarwrasplayddsfsdffhouse.com/meuytmbe
rs/
rwe
http://Zeke45MM:pattofdn654@www.blacknwwerwwhite.com/members/
ewr gf fbu-bu- la-la
http://sjones:809111@www.blackfhhfdnwfgefgwrhite.com/members/
http://rodsfsfbt***:rrrrrsaffgrrr@www.blacknwgfdghite.com/members/
есть такие:
$message =~ s/\ http:\/\/(\S+?)\ / <a href=\"http:\/\/$1\"\
target=\"_blank\">http\:\/\/$1<\/a> /isg;
$message =~ s/<br>http:\/\/(\S+?)\ /<br><a href=\"http:\/\/$1\"\
target=\"_blank\">http\:\/\/$1<\/a>/isg;
$message =~ s/^http:\/\/(\S+?)\ /<a href=\"http:\/\/$1\"\
target=\"_blank\">http\:\/\/$1<\/a>/isg;
$message =~ s/\ https:\/\/(\S+?)\ / <a href=\"https:\/\/$1\"\
target=\"_blank\">https\:\/\/$1<\/a> /isg;
$message =~ s/<br>https:\/\/(\S+?)\ /<br><a href=\"https:\/\/$1\"\
target=\"_blank\">https\:\/\/$1<\/a>/isg;
$message =~ s/^https:\/\/(\S+?)\ /<a href=\"https:\/\/$1\"\
target=\"_blank\">https\:\/\/$1<\/a>/isg;
Hо они глючат... если между двумя ссылками нет пробела, то он их за одну
принимает... добавление знака конца строки непомогает...
--
_____________________________
С Уважением Савостьянов Денис
http://mugger.nm.ru
ICQ: 8576580
--- ifmail v.2.15dev5
* Origin: ZAO Combellga (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
