HTTP::MobileUserIDでケータイの個体識別が簡単にできるよ

Tweet

１か月前くらい、業務でケータイサイト作ってたんですけれども、ケータイの固有情報でログインさせようとして、間に合わせコードで、

use HTTP::MobileAgent;
use HTTP::MobileUserID;
my $ser;
my $agent = $self->param( 'agent' );
if (!$agent->is_non_mobile() ) {
  $ser = $1 if ($agent->user_agent =~m/ser(...............)/ );
}

ていうへっぽこコードを書いていたんですけれども（ドコモFOMA専用）、

HTTP::MobileUserID & Catalyst::Plugin::MobileUserID Released - Unknown::Programming [d.hatena.ne.jp]

を見つけて、

use HTTP::MobileAgent;
use HTTP::MobileUserID;
my $ser;
my $userid = HTTP::MobileUserID->new($agent);
$ser = $userid->id if $userid->supported;

なんてしてみました。

これでソフトバンク携帯にも対応したっぽいけれども、田舎なので、ソフトバンク携帯使っているひと見たことない。いてもプリペイドだ。あとソフトバンクの営業電話が多くかかってきて（ピカツーとかから来る）なんだかいやだ。

～～～

作者の方ありがとう。

2007.10.29 21:32 投稿　大野 義貴 [Perl] | 固定リンク |