Perl で、URL の自動リンクをしたい

以前私は正規表現を使っていたが、 URI::Find とそれにピッタリのモジュールを発見。以来こちらに移行。

使用するモジュール 


use URI::Find;
#!/usr/bin/perl sub urlToLink { 
use URI::Find;
my $text = shift;

my $finder = URI::Find->new(
    sub {
        my($uri, $orig_uri) = @_;
        return qq|<a href="$uri">$orig_uri</a>|;
    });
$finder->find(¥$text);

return $text;
} 1;
参考リンク：