X-SEO > 技術メモ > Perl > ENV解析 > 携帯電話端末種類

Perl

携帯電話端末種類

#===========================================================================*
# プログラム名  : 携帯電話端末種類                                          *
# プログラムID  : MobileType                                                *
# 使用例        : &MobileType;                                              *
#---------------------------------------------------------------------------*
# 入力引数[0]   : なし                                                      *
#---------------------------------------------------------------------------*
# 出力引数[0]   : 端末種類                                                  *
#===========================================================================*
sub MobileType {
    #-------------------------------*
    # 変数宣言                      *
    #-------------------------------*
    my($UserAgent)  = $ENV{'HTTP_USER_AGENT'};
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    return "DoCoMo" if ($UserAgent =~ /^DoCoMo\/\d/);
    return "Vodafone" if ($UserAgent =~ /^(J-PHONE|Vodafone)\/\d/);
    return "ezWEB" if ($UserAgent =~ 'UP.B');
    #-------------------------------*
}