www.pudn.com > httpd-2.2.6-win32-src-r2.zip > printenv, change:2004-12-10,size:307b


#!/usr/local/bin/perl 
## 
##  printenv -- demo CGI program which just prints its environment 
## 
 
print "Content-type: text/plain; charset=iso-8859-1\n\n"; 
foreach $var (sort(keys(%ENV))) { 
    $val = $ENV{$var}; 
    $val =~ s|\n|\\n|g; 
    $val =~ s|"|\\"|g; 
    print "${var}=\"${val}\"\n"; 
}