php实现使用正则将文本中的网址转换成链接标签

代码如下：

function text2links($str='') {

    if($str=='' or !preg_match('/(http|www\.|@)/i', $str)) { return $str; }

    $lines = explode("\n", $str); $new_text = '';

    while (list($k,$l) = each($lines)) {

        // replace links:

        $l = preg_replace("/([ \t]|^)www\./i", "<a href="file://%5C%5C1http:/www">\\1http://www</a>.", $l);

        $l = preg_replace("/([ \t]|^)ftp\./i", "<a href="file://%5C%5C1ftp:/ftp">\\1ftp://ftp</a>.", $l);

        $l = preg_replace("/(http:\/\/[^ )\r\n!]+)/i",

            "<a href=\"<a href="file://%5C%5C1%5C%22>%5C%5C1</a">\\1\">\\1</a</a>>", $l);

        $l = preg_replace("/(https:\/\/[^ )\r\n!]+)/i",

            "<a href=\"<a href="file://%5C%5C1%5C%22>%5C%5C1</a">\\1\">\\1</a</a>>", $l);

        $l = preg_replace("/(ftp:\/\/[^ )\r\n!]+)/i",

            "<a href=\"<a href="file://%5C%5C1%5C%22>%5C%5C1</a">\\1\">\\1</a</a>>", $l);

        $l = preg_replace(

            "/([-a-z0-9_]+(\.[_a-z0-9-]+)*@([a-z0-9-]+(\.[a-z0-9-]+)+))/i",

            "<a href=\"<a href="mailto:%5C%5C1%5C%22>%5C%5C1</a">mailto:\\1\">\\1</a</a>>", $l);

        $new_text .= $l."\n";

    }

    return $new_text;

}