環境変数を全て表示(%ENV)
#! /usr/local/bin/perl # HTML出力 print "Content-type: text/html\n\n"; print "<html>\n"; print "<head>\n"; print "<title>環境変数を全て表示</title>\n"; print "</head>\n"; print "<body>\n"; # 環境変数を出力 print "<table>\n"; foreach $key (sort keys %ENV) { $value = $ENV{$key}; $value =~ s/\w/\*/g; #サンプルのため非表示です。この行を削除してください。 print "<tr><td>$key</td><td>$value</td></tr>\n"; } print "</table>\n"; # HTML出力 print "</body>\n"; print "</html>\n"; exit;
〔 実行する 〕