!!!参考URL
!!全般
::CGIぽん
:::http://specters.net/cgipon/

!!!サンプルコード
!!簡単認証(Perl)
::以下より抜粋
:::http://www.rescue.ne.jp/cgi/keitai_login/

 $UA = $ENV{'HTTP_USER_AGENT'};
 $SN = $ENV{'HTTP_X_UP_SUBNO'}; # サブスクライバID(ezWEB)
 
 if (($UA =~ 'UP.B') && ($SN ne "")) {
 
     $ua = "ezweb";
     if ($ENV{'HTTP_X_UP_DEVCAP_MULTIMEDIA'}) { $ua = "ezweb2"; } # WAP2.0対応機種
 
     $UID = $SN;
 }
 elsif ($UA =~ /^DoCoMo\/\d/) {
 
     $ua = "imode";
 
     if ($UA =~ /ser(\w{15})/) { $UID = $1; } # <foma> DoCoMo/2.0 N2001(c10;serXXXXXXXXXXXXXXX; iccxxxxxxxxxxxxxxxxxxxx)
     elsif ($UA =~ /ser(\w{11})/) { $UID = $1; } # <mova> DoCoMo/1.0/X503i/c10/serNMAIA000001
 }
 elsif ($UA =~ /^J-PHONE\/\d/) {
 
     $ua = "j-sky";
 
     if ($UA =~ /.*\/.*\/.*\/SN(\w+)\s/) { $UID = $1; } # パケット対応機 J-PHONE/4.0/J-SH51/SN************ SH/0001a Profile/MIDP-1.0 Configuration/CLDC-1.0 Ext-Profile/JSCL-1.1.0
 }
 else { $ua = 0; }
 
 if (!$ua || $UID eq "") { &error("ｴﾗｰ","あなたの端末では識別情報が取得できないため簡単ﾛｸﾞｲﾝが利用できません"); }


----
[[メモ書き]]