The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

HTTP::MobileUID - 携帯端末の公式のユーザIDを取得する

概要

  use HTTP::MobileUID;
  use HTTP::MobileAgent;
  
  my $agent  = HTTP::MobileAgent->new;
  my $userid = HTTP::MobileUID->new($agent);
  
  print $userid->uid;

説明

携帯端末の公式のユーザIDを取得します。

メソッド

uid()
id()

キャリア公式のユーザIDを返します。

DoCoMoの場合はApache::DoCoMoUID互換の環境変数HTTP_X_DOCOMO_UIDから取得する実装になっています。

ユーザIDが取得できなかった場合は未定義値を返します。

convert_uid()

コンバートしたユーザIDを返します。

DoCoMoの場合に先頭2文字削っているのと、Softbankの場合に先頭1文字削っているだけです。

基本このメソッドを使うことになると思います。

has_uid()
no_uid()

端末IDの取得には対応しているが何らかの理由でユーザIDが取得できないケースがあるのでそれを判定します。

no_uidが真になるのは以下のケース

  • DoCoMoでキャリア申請してない場合

  • SoftBankでユーザIDの通知設定を行わなかった場合

  • AUでサブスクライバIDの通知設定を行わなかった場合

is_docomo_uid($uid)
is_softbank_uid($uid)
is_ezweb_uid($uid)

ユーザIDとして正しいか判定します。

それぞれクラスメソッドとして用意しているので

 if ( HTTP::MobileUID->is_docomo_uid($uid) ) {}

のような感じで使用することも可能です。

作者

Ittetsu Miyazaki <ittetsu.miyazaki __at__ gmail.com>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

HTTP::MobileAgent