Webtech Walker

URI::Find

昨日のエントリーのコメントでそれURI::Findでできるよと言われたのでやってみた。

use URI::Escape;
use URI::Find;

URI::Find->new(sub {
    my ($uri, $orig_uri) = @_;
    return qq[<a href="$uri">] . uri_unescape($orig_uri) . qq[</a>];
})->find(\$text);

こんなかんじかな。

このエントリーをはてなブックマークに追加