とまて週報(CGIで携帯とPCの振分けが出来る環境か？？)

#!/usr/local/bin/perl
# ************** 環境変数のテスト *************
# CGIをUPする予定のサーバーで使える環境変数をチェックします。
# 内容は、自分の使ってみたい変数を追加して使用してください。
# 携帯からのアクセスかどうかをユーザーエージェントとリモートホストを組み合わせて
# 判断するスクリプトと組み合わせています。
#

$a1=$ENV{'HTTP_USER_AGENT'};
$host=$ENV{'REMOTE_HOST'};

# チェックしたい環境変数の内容をここに列挙してください。（携帯からのアクセスの場合を考えてシンプルに記述してください）
#--------------------------------------------------------------------------
$Checker =<< "HIA";
ユーザーエージェント = $ENV{'HTTP_USER_AGENT'} 
リモートホスト = $ENV{'REMOTE_HOST'} 
リモートホストのIPアドレス情報 = $ENV{'REMOTE_ADDR'} 
HIA
#--------------------------------------------------------------------------

if (((index($a1,"UP.Browser")>0) && ($host =~ /\.(ezweb|ido)\.ne\.jp$/)) ||
( (index($a1,"UP.Browser")==0) && ($host =~ /\.(ezweb|ido)\.ne\.jp$/) ) || ( (index($a1,"DoCoMo")>=0 && $host =~ /

\.docomo\.ne\.jp$/) ) ||
((index($a1,"J-PHON")>=0 || index($a1,"Configuration")>=0) && $host =~ /\.jp-[ckqt]\.ne\.jp$/)) {
$comment='携帯からですね？';
} else {
$comment='携帯からじゃないですね？'; 
}
print <<"HIA";
content-type:text/html\n
<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE html PUBLIC "-//OPENWAVE//DTD XHTML 1.0//EN" http://www.openwave.com/DTD/xhtml-basic.dtd>
<html><body>
$comment 
$Checker
</body></html>
HIA
exit();
__END__

CGIで携帯とPCの振分けが出来る環境か？？

キャリアの判別が出来る環境かどうかチェックしましょう