Erstatte emailadresser og links med klikbare emailadresse og link

Sådan til emails:

$pattern = "\b[^@ ]+@(?:[\w-]+\.)+[a-z]{2,}\b";
$phpPattern = "/$pattern/i";

$text = preg_replace($phpPattern, "<a href='mailto:$0'>$0</a>", $text);

Sådan til urls:

$pattern = '
((?:https?|ftp)://)?            # scheme
([\w-]+\.)+                    # host - domain og subdomain\'s
([a-z]{2,})                    # host - tld
(:\d+)?                        # port
(/~?[^\s/?&]*)*                # path
([?&][^\s=?&\#]+=[^\s=?&\#]*)*  # query - after the question mark ?
(\#[^\s]+)?                    # fragment
';
$phpPattern = "{" . $pattern . "}x";

$text = preg_replace($phpPattern, "<a href='$0'>$0</a>", $text);

<ole>

nielle >> Denne streng:
    $s = "Blabla bla bla@noget.com blabla bla";

- i kombination med dit første eksempel, resulterer for mig i:
    Blabla bla <a href='mailto:bla@<a href='noget.com'>noget.com</a>'>bla@<a href='noget.com'>noget.com</a></a> blabla bla

/mvh
</bole>

Jeg har sådan en funktion liggende:

    function url2link($txt)
    {
        $username = "[a-z0-9_\-]+";
        $password = "[a-z0-9_\-!#]+";
        $host = "[a-z0-9\-]+\.[a-z0-9\-\.]+";
        $port = "\d{1,5}";
        $path = "\/[a-z0-9\/\-_\.\(\)\%#]*";
        $querystr = "\?[a-z0-9&=\-_\.%\(\)#]+";
        $proto = "(https?|ftp):\/\/";
        $url = "$host(:$port)?($path($querystr)?)?";
        $protodomain = "/$proto(($username(:$password)?@)?$url)/i";
        $domain = "/(^| )(www\.$url)/im";
        $protomail = "/mailto:($username@$host)/i";
        $mail = "/(^| )($username@$host)/im";
        $replacements = array(
                $protodomain => "<a href=\"\\0\" target=\"_blank\">\\2</a>"
                ,$domain => "\\1<a href=\"http://\\2\" target=\"_blank\">\\2</a>"
                ,$protomail => "<a href=\"\\0\">\\1</a>"
                ,$mail => "\\1<a href=\"mailto:\\2\">\\2</a>"
            );
        return preg_replace( array_keys( $replacements ), array_values( $replacements ), $txt );
    }