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

<?php

$str ='<p>m.ipal.com. m.ipal.com,m.ipal.com;m.ipal.com/?task=u&amp;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_\-\.]*)(\?(&amp;|[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;
}

?>