02/12/13 23:53 biw3Svqu
>>219
プレゼントだよぉ
#!/usr/local/bin/perl
print "Content-Type: text/html\n\n";
print "<table border=1>";
foreach (sort keys %ENV) {
next unless /^HTTP_/;
print "<tr><td>$_</td><td>$ENV{$_}</td></tr>";
}
print "</table>";
02/12/13 23:53 biw3Svqu
>>219
プレゼントだよぉ
#!/usr/local/bin/perl
print "Content-Type: text/html\n\n";
print "<table border=1>";
foreach (sort keys %ENV) {
next unless /^HTTP_/;
print "<tr><td>$_</td><td>$ENV{$_}</td></tr>";
}
print "</table>";