Hi Frank!
#!/usr/bin/perl
print "Content-type: text/plain\n\n";
$nl=0;
for(%ENV)
{
print $_, " ";
$nl++;
$x = $nl % 2;
if ($x == 0){ print "\n";}else{ print " : ";}
}
exit;
Ahem... das ist nicht Dein Ernst, oder?
#!/usr/bin/perl
print "Content-type: text/plain\n\n";
print "$_:\t\t$ENV{$_}\n" for (sort keys %ENV);
Fuer Perl kleiner 5.005 die letzte Zeile:
for (sort keys %ENV) { print "$_:\t\t$ENV{$_}\n" }
Oder:
print("$key:\t\t$value\n") while (($key, $value) = each(%ENV));
So long