Perlでサーバーの環境変数($ENV)を表示する
2006年12月11日Table of Contents
たまにPerlの環境変数名を忘れることがあるので、スクリプトと合わせてメモ。
適当に作ったものなので、簡単な動作確認(単純にエラーなく動く)しかしていませんが。
一応、メモ。
$ touch perlenv.pl
$ chmod 755 perlenv.pl
$ vim perlenv.pl
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print<<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html lang="ja">
<head>
<title>ENV List</title>
</head>
<body>
<ul style="font-size:10pt; color:#666; list-style:circle; block;">
<li style="left-margin:0; list-style:none;">環境変数[ ENV ]</li>
EOF
foreach $key (keys %ENV) {
print<<"EOF";
<li style="float:left; width:200px; list-style:circle; clear:left; border:1px solid #eee; line-height: 20pt;">$key</li>
<li style="list-style: none; line-height: 20pt; border:1px solid #eee;"> $ENV{$key}</li>
EOF
}
print<<"EOF"
</ul>
</body>
</html>
EOF