ドコモ2009夏モデルのリファラー出力記念。
ドコモのiメニューで検索した時の検索キーワードを取得します。（たぶん）
$uriの値は実際はちょっと異なります。
1 2 3 4 5 6 7 8 9 10 11 12 | 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パラメータがあったらデコードしちゃいますが・・・
