pochinova1985

fsefesfsefsefsefsefseqdfqwdfaw

wdqdqwdwqdaccwcdawd
$text = q(Некоторый текст с ссылками на BBcod'e. Ссылки могут быть разными http://dayte2.com. Важно защититься от ссылок с XSS! Добавим кавычки к url. А теперь укажем Неверный url);
$text =~ s /
\
(?: #внутри может быть адрес
\s?=\s? #если есть, то там 100% есть =, возможно, окруженное пробелами
(['"]?) #если есть кавычка, запоминаем ее в $1
(?:http:\/\/)? #можно без http:\/\/
( #пишем url в $2
[a-z0-9-.]+\. #домены второго и выше уровней
\w{2,4} #доменная зона
\1 #подставляем кавычку, чтобы соблюсти парность
)? #код не обязательно должен быть в
\] #закрыли
(.*?) #запоминаем текст ссылки в $3
\[\/url\]
bb_url($1,$2,$3)
/gixe;
$text =~ s/\(?:http:\/\/)?([a-z0-9-.]+\.\w{2,4})\[\/url\]/$1/gi;
$text =~ s/\?)(?:http:\/\/)?([a-z0-9-.]+\.\w{2,4})\1\](.*?)\[\/url\]/$3/gi;

Ответить0 комментариев
В избранное
Комментарии (0):
Для того, чтобы оставить комментарий, авторизуйтесь или зарегистрируйтесь .

Прямой эфир