Perl 的测试代码

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. }