regex - Perl将URL字符串转换为链接

我正在寻找一种在字符串中找到URL并将其转换为链接的方法。

网址可以在字符串中的任何位置（开头，中间或结尾）。

首选使用Regex，但欢迎使用CPAN模块。

最佳答案

您可以使用Regexp :: Common查找字符串，然后进行替换以使其成为链接。
在没有其他任何东西的情况下，我已使用URL作为链接文本。

    use Regexp::Common "URI";
    my $string="Some text containing http://stackoverflow.com/questions/4587876/perl-convert-url-string-to-link in middle" ;

    $string =~    s( ($RE{URI}{HTTP}) )
                  (<a href="$1">$1</a>)gx  ;

    print $string ;