Perl作为CGI时候无法获取环境变量？

iamlimeng

我有一个CGI环境探测器，供你参考：

http://www.class22.net/cgi-bin/env.pl

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. print "Content-type: text/plain; charset=iso-8859-1\n\n";
   
4. foreach $var (sort(keys(%ENV))) {
   
5.     $val = $ENV{$var};
   
6.     $val =~ s|\n|\\n|g;
   
7.     $val =~ s|"|\\"|g;
   
8.     print "${var} = \"${val}\"<br>\n";
   
9. }

复制代码