■=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;
|
#!/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;
|
print $ENV{'HTTP_USER_AGENT'};
|
ついでに 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;
|
if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) {
print "Internet Explorer を使っていますね。";
} else {
print "Internet Explorer を使っていませんね。Internet Explorer はお嫌いですか？。";
}
|
{'HTTP_USER_AGENT'} =~ /MSIE/)
|
| 調べる対象 =~ /マッチさせる内容/) |
| | Back | Coco's Home | ココとPerlで遊びませんか | |
env.cgi