ブラウザの情報取得

古いバージョンのブラウザでは、使用タグ制限されたり、表示内容が微妙にずれたりします。どのブラウザでも意図したように表示させるには、ブラウザの情報を入手してそれぞれに対応させるファイルやプログラムを用意しなければならない場合もあるかもしれません。このようなときには環境変数にセットされるブラウザに関する情報を利用することができます。

getenv.cgi
`#!/usr/bin/perl # # getenv.cgi # # 環境変数一覧の表示 # # (C) Kaoru Fujita # # # 定数 # # タイトル $Title = '環境変数一覧サンプルプログラム'; print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD>\n"; print "<TITLE>$Title</TITLE>\n"; print "</HEAD>\n"; print "<BODY>\n"; foreach (sort keys %ENV) { print "$_: $ENV{$_}<BR>\n"; } print "</BODY>\n"; print "</HTML>\n"; exit(0); #--End of getenv.cgi`

#!/usr/bin/perl
#
# getenv.cgi
#
# 環境変数一覧の表示
#
# (C) Kaoru Fujita
#

#
# 定数
#
# タイトル
$Title = '環境変数一覧サンプルプログラム';

print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>$Title</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
foreach (sort keys %ENV) {
        print "$_: $ENV{$_}<BR>\n";
}
print "</BODY>\n";
print "</HTML>\n";

exit(0);

#--End of getenv.cgi

<サンプルプログラムの実行>