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);
Googleモバイルはパラメータで判断できそうだけど、Yahooモバイルはできなそうなので、Mobile Link Discovery経由のアクセス解析を行うためには、単純にリダイレクト先のURI(http://mobile.example.com/)を記述するんじゃなくて、嘘でもいいから以下のように、どこから来たか分かるようにパラメータを付与しておいた方がよさそう。