ココとPerlで遊びませんか(環境変数)

ENV

環境変数の表示をします。

#!/usr/local/bin/perl

$title = "環境変数の表示";

print "Content-type: text/html\n\n";
require 'heder.txt';# ヘッダー読み込み

foreach $value (sort keys %ENV) {
	print "$value : $ENV{ $value }<br>\n";
}
require 'fotter.txt';# フッター読み込み

exit;

env.cgi
【→Perl Reference: require】

#!/usr/local/bin/perl

$title = "環境変数の表示";

print "Content-type: text/html\n\n";
require 'heder.txt';# ヘッダー読み込み

print "<br>こんにちは。あなたのブラウザは<font color=\"blue\">";
print $ENV{'HTTP_USER_AGENT'};
print "</font>を使っているのですか。<p>\n";
print "あなたが今使っているＩＰアドレスは<font color=\"blue\">";
print $ENV{'REMOTE_ADDR'};
print "</font>ですよ。知ってましたか？<p>\n";
print "このページには<font color=\"blue\">";
print $ENV{'HTTP_REFERER'};
print "</font>からアクセスしてきたのですね。戻られるなら<a href=\"";
print $ENV{'HTTP_REFERER'};
print "\">ここをクリック</a>すれば戻れますよ。<p>\n";
print "また遊びに来てくださいね。<hr>\n";
print "<font size=\"-2\">ブラウザの種類とバージョンは Internet Explorer なら括弧内に compatible; MSIE x.x と、<br>Netscape Communicator なら Mozilla/x.xx と表示されます\n";

require 'fotter.txt';# フッター読み込み
exit;

env2.cgi

print $ENV{'HTTP_USER_AGENT'};
$ENV{'　'}　で環境変数を呼び出しています。

ついでに Internet Explorer を使っている人と、そうでない人とで表現を分けてみましょう。

#!/usr/local/bin/perl

$title = "環境変数の表示";

print "Content-type: text/html\n\n";
require 'heder.txt';# ヘッダー読み込み

print "<br>こんにちは。HTTP_USER_AGENTが<font color=\"blue\">";
print $ENV{'HTTP_USER_AGENT'};
print "</font>ということは<font color=\"red\">\n";
if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) {
	print "Internet Explorer を使っていますね。";
} else {
	print "Internet Explorer を使っていませんね。Internet Explorer はお嫌いですか？。";
}
print "</font><p>あなたが今使っているＩＰアドレスは<font color=\"blue\">";
print $ENV{'REMOTE_ADDR'};
print "</font>ですよ。知ってましたか？<p>\n";
print "このページには<font color=\"blue\">";
print $ENV{'HTTP_REFERER'};
print "</font>からアクセスしてきたのですね。戻られるなら<a href=\"";
print $ENV{'HTTP_REFERER'};
print "\">ここをクリック</a>すれば戻れますよ。<p>\n";
print "また遊びに来てくださいね。<hr>\n";
print "<font size=\"-2\">ブラウザの種類とバージョンは Internet Explorer なら括弧内に compatible; MSIE x.x と、<br>Netscape Communicator なら Mozilla/x.xx と表示されます\n";

require 'fotter.txt';# フッター読み込み

exit;

env3.cgi

if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) {
	print "Internet Explorer を使っていますね。";
} else {
	print "Internet Explorer を使っていませんね。Internet Explorer はお嫌いですか？。";
}

if 文で MSIE かどうか条件判断しています。

　　{'HTTP_USER_AGENT'} =~ /MSIE/)

は HTTP_USER_AGENT の中に MSIE の文字が含まれるかどうかです。

調べる対象 =~ /マッチさせる内容/)

となります。