Perl Tips | Perl で、URL を抽出したい。

Perl Tips | Perl で、URL を抽出したい。

URI::Find で URL を抜き出して、さらに正規表現を使って正確に取得している。 使用するモジュール use ...概要を表示 URI::Find で URL を抜き出して、さらに正規表現を使って正確に取得している。 使用するモジュール use URI::Find #/usr/bin/perl my $text = 'https://twinkle.cc/i/'; my $url = getURL($text); sub getURL { use URI::Find; my $text = shift; my $finder = URI::Find->new( sub { my($uri, $orig_uri) = @_; return $uri; }); $finder->find(¥$text); my $http_URL_regex = q{¥b(?:https?|shttp)://(?:(?:[a-zA-Z0-9](?:[-a-zA-Z0-9]*[a-zA-Z0-9])} . q{?¥.)*[a-zA-Z]

• perl
• プログラム