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

Question

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

URL 可以位于字符串中的任何位置(开头、中间或结尾)。

首选正则表达式，但也欢迎使用 CPAN 模块。

Answer 1

最常见的解决方案是 Regexp::Common (没有双关语的意思)。您需要使用如下所示的 {-keep} 版本来保持匹配(显然在 $1 中)

use Regexp::Common qw /URI/;

while (<>) {
    /$RE{URI}{HTTP}{-keep}/ and print "<A HREF="$1">My Link Name</A>";
} 

很明显，上面的示例每行仅找到 1 个链接。修复更多问题就留给用户作为练习。

<小时/>

另一个选择是 Schwern 的 URI::Find 。来自 POD 示例:

use CGI qw(escapeHTML);
use URI::Find;
my $finder = URI::Find->new(sub {
    my($uri, $orig_uri) = @_;
    return qq|<a href="$uri">$orig_uri</a>|;
});
$finder->find(\$text, \&escapeHTML);
print "<pre>$text</pre>";