HTTP::MobileUserIDを試してみた

id:fbisさんの携帯のユーザーIDを取得する - Unknown::Programmingを見て試してみました。

#!/usr/bin/perl
use strict;
use warnings;
use HTTP::MobileUserID;
use HTTP::MobileAgent;

my $agent  = HTTP::MobileAgent->new;
my $userid = HTTP::MobileUserID->new($agent);

print "Content-Type: text/plain; charset=Shift_JIS\n\n";
if ($userid->supported) {
    print "userid: ", $userid->id, "\n";
}
else {
    print "not supported\n";
}
exit;

個人的にはかなり良い感じです。
携帯電話の固体識別IDって、キャリアによってURIのQUERYから取り込んだり、環境変数に入ってたり(しかも環境変数名が違う)とかで、自分でラッパーを書いたりしてた人も多いはず。

次の携帯サイト開発のときは、使ってみようかなって思います。