URLを触る時は、URI（perlモジュール名)が超便利だと思う。

こんばんは！

urlにパラメータをつけたり、取り除いたり、パスだけ取得したり、クエリーを作りたいとか、そういった機会に出くわすことが多々ありませんか？　そういうときは、URI というモジュールが便利です。

こんな感じで使います。

use URI;
use Data::Dumper;
use strict;
use warnings;

my $uri = URI->new('http://hogehoge.com/hoge/hoge/?hoge=hoge&foo=1&foo=2');

print $uri->as_string . "\n";
print $uri->path . "\n";
print $uri->query . "\n";
print $uri->path_query . "\n";

この表示結果は、こんな風になります。色々なパーツが取れて嬉しいですね。

http://hogehoge.com/hoge/hoge/?hoge=hoge&foo=1&foo=2
/hoge/hoge/
hoge=hoge&foo=1&foo=2
/hoge/hoge/?hoge=hoge&foo=1&foo=2

またurlを構築したいときにも使えます。

use URI;
use Data::Dumper;
use strict;
use warnings;

my $uri = URI->new('http://hogehoge.com/hoge/');

$uri->query_form( hoge => 'hoge' , foo => [1 ,2 ] );

print $uri->as_string . "\n";

結果は、以下のようになりますね。

http://hogehoge.com/hoge/?hoge=hoge&foo=1&foo=2

便利ですね！ URL を構築する時には、ぜひ使ってみて下さいね！

:wq!