#!/usr/bin/perl
print "Content-type:text/html;charset:Shift_JIS\n\n";
print "<html><body>\n";
print "<table>\n";
foreach (keys %ENV)
{
print "<tr><td>$_ </td><td> $ENV{$_}</td></tr>";
}
print "</table>\n";
print "</html>\n";
exit;
foreach (keys %ENV)
{
print "$_ : $ENV{$_}\n";
}
環境変数出力
トラックバック(0)
トラックバックURL: http://www.adg7.com/mt/mt-tb.cgi/534
コメントする