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から取り込んだり、環境変数に入ってたり(しかも環境変数名が違う)とかで、自分でラッパーを書いたりしてた人も多いはず。
次の携帯サイト開発のときは、使ってみようかなって思います。