自动识别内容中的Url并添加超链接

<?php

$str ='<p>m.ipal.com. m.ipal.com,m.ipal.com;m.ipal.com/?task=u&se;test auto link www.baidu.com staff.maosong.com m.ipal xiaonei.com m.ipal.com www.ipal.com/?_task=mail#a http://www.ipal.com http://www.policecard.com/?_task=mail http://www.ipal.com/?_task=index#bb</p>';
echo autolink($str);

function autolink($str){

$body = preg_replace(array("/(?<=[^a-z0-9\"'=\/\-_\.~\?]|^)((https?|ftp|gopher|news|telnet|mms){1}:\/\/)?(([a-z]([a-z0-9\-])*(\.[a-z]([a-z0-9\-])*)+(?=\.(\s|$)))|((([a-z]([a-z0-9\-])*\.)+([a-z]{2}|aero|arpa|biz|com|coop|edu|gov|info|int|jobs|mil|museum|name|nato|net|org|pro|travel)|(([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\.){3}([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5]))(\/[a-z0-9_\-\.~]+)*(\/([a-z0-9_\-\.]*)(\?(&|[a-z0-9+_\-\.%=&])*)?)?(#[a-z][a-z0-9_]*)?((?=$|[,\s<]|\.\s)|(?!p)(?=;))))/ies"

),

array("urlcut('\$1\$3', '\$2')"

),

$str);

return $body;

}

function urlcut($url, $prefix)

{

$urllink = "<a href=\"" . (empty($prefix) ? "http://$url" : $url) . "\" target=\"_blank\">";

$urllink .= "$url</a>";

return $urllink;

}

?>