| Alfred Wong's Programming Showcase | ||||||||
|
#!/usr/local/bin/perl -w
#!c:/perl/bin/perl -w
##
## Print environment variables sorted by name.
##
print "Content-type: text/html\n\n";
foreach $var (sort(keys(%ENV))) {
$val = $ENV{$var};
print "${var}=\"${val}\"<br>\n";
}
|
© 2004 Alfred Wong
|