Java代码
  1. #!E:/Perl/bin/perl.exe  
  2. ##  
  3. ##  printenv — demo CGI program which just prints its environment  
  4. ##  
  5.   
  6. print "Content-type: text/html; charset=iso-8859-1\n\n";  
  7. foreach $var (sort(keys(%ENV))) {  
  8.     $val = $ENV{$var};  
  9.     $val =~ s|\n|\\n|g;  
  10.     $val =~ s|"|\\"|g; 
  11.     print "${var}=\"${val}\"\n";  
  12. }