ドコモ2009夏モデルのリファラー出力記念。
ドコモのiメニューで検索した時の検索キーワードを取得します。（たぶん）
$uriの値は実際はちょっと異なります。
PERL:
-
use strict;
-
use warnings;
-
use Perl6::Say;
-
use URI;
-
use URI::Escape;
-
use URI::Query;
-
-
my $uri = 'http://docomo.ne.jp/?key=%41%42%43';
-
-
my $query = URI->new($uri)->query;
-
my $key = (URI::Query->new($query)->hash)->{key};
-
say uri_unescape($key);
ドコモのドメインじゃなくてもkeyパラメータがあったらデコードしちゃいますが・・・
