KDDI au: ユーザーエージェント > 判別CGI (サンプル)#!/usr/local/bin/perl #*****************機種判別CGIの例***************** #このｻﾝﾌﾟﾙCGIでは #WAP2.0ﾌﾞﾗｳｻﾞ搭載端末(3000/5000ｼﾘｰｽﾞ)は、HTMLのﾄｯﾌﾟﾍﾟｰｼﾞ #HDMLﾌﾞﾗｳｻﾞ搭載端末(400/300ｼﾘｰｽﾞなど)は、HDMLのﾄｯﾌﾟﾍﾟｰｼﾞ #その他の端末からは、HTMLの簡易ﾍﾟｰｼﾞが表示されます。 #************************************************** #ユーザーエージェントを変数に取り込む $u_a = $ENV{'HTTP_USER_AGENT'}; #*****************WAP2.0かどうかの判定***************** #"UP.Browser"という文字列が先頭位置にあるかどうかを調べる
