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

NAME

HTTP::MobileUserID::Nihongo - 携帯端末のユーザIDを取得する

概要

  use HTTP::MobileUserID;
  use HTTP::MobileAgent;
  
  my $agent  = HTTP::MobileAgent->new;
  my $userid = HTTP::MobildUserID->new($agent);
  
  if ( $userid->supported ) {
    print $userid->id;
  }

説明

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

DoCoMoの場合は端末ID、SoftBankの場合はユーザID、AUの場合はサブスクライバIDを返します。

メソッド

user_id()
id()

ユーザIDを返します。

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

supported()
unsupported()

その端末がそもそも固有のユーザIDを取得できるかどうかを判定します。

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

  • DoCoMoのHTMLバージョンが2.0以下の端末はutn属性が使えないので端末固有のIDを取得することは不可能。

  • SoftBankのC型端末はユーザIDの取得ができない。(公式サイトなら可能、だったはず)

has_user_id()
no_user_id()

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

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

  • DoCoMoでutn属性のリンクを経由しなかった場合

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

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

作者

Ittetsu Miyazaki <ittetsu.miyazaki@gmail.com>

Thanks to Dan Kogai

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