倒数第四篇:关于线程的优质网页
倒数第三篇:解决PHP处理中文乱码相关网络资料汇集
主页
倒数第一篇:PHP PCRE库函数preg_match_all, preg_replace处理大文本文件时失败
第一篇:什么时候需要代码跟踪以及怎样进行代码跟踪
文章列表

下面代码演示了如何用Perl的CGI编程打印所有环境变量。

#!"../perl/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";
}