02/10/07 03:15
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
for (my @ENV = sort keys(%ENV)) {$env.= "<tr><td>$_</td><td>$ENV{$_}</td></tr>";}
print "<table border=1>$env</table>";
exit;
どう？
02/10/07 03:15
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
for (my @ENV = sort keys(%ENV)) {$env.= "<tr><td>$_</td><td>$ENV{$_}</td></tr>";}
print "<table border=1>$env</table>";
exit;
どう？