|
今度は、環境変数の一覧を出力するCGIです。 動作例
ここを押すと、実行結果がわかります。↓ ソースコード
#!/usr/local/bin/perl
use CGI;
use strict;
my $cgi = new CGI;
print $cgi->header, $cgi->start_html('Environments');
print "<p><table border=\"1\">\n";
print "<tr><th>Name</th><th>Value</th></tr>\n";
my $val;
foreach $val (sort keys %ENV) {
print "<tr><td>" . $cgi->escapeHTML($val) . "</td><td>" .
$cgi->escapeHTML($ENV{$val}) . "</td></tr>\n";
}
print "</table></p>\n";
print $cgi->end_html;
|
▼ 個人的宣伝
|