-
用在线运行环境学一下正则表达式,无意中发现看似质朴的网页还是有点意思的
$text = "http://yourdiary.site/";
$text =~ s{
\b
#将URL保存至$1 ...
(
http://[-a-z0-9]+(\.[-a-z0-9]+)*\.(com|edu|info|site)\b
(
/[-a-z0-9_:\@&?+,./~'%\$]* #path不一定会出现
)?
)
}{<a href="$1">$1</a>}gix;
print $text;
- emmm... 那应该也能这样做