请帮我测试一下这个perl文件

dyhml 2005-05-06 09:34:13
大家帮我测试一下这个程序,一个apache的cgi,不管是在apache里还是单独在shell里用perl运行,这句话:
print "Content-type: text/plain; charset=iso-8859-1\n\n";
总是不运行.
shell里还好,只是少一句,而apache里,少了Content-type就报错(apache运行另一个perl文件没错).
而我把注释去掉后就好了.非常奇怪.
请用shell运行一下,看看有没有第一句.


#!/usr/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";
}
...全文
124 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
xyzxyz1111 2005-05-08
  • 打赏
  • 举报
回复

我也试过了,发现如果浏览器是IE那么就会出现下载的界面,而用firefox就没有问题,可以将环境变量打印出来。我想可能是IE对Text/plain的支持有问题



dyhml 2005-05-07
  • 打赏
  • 举报
回复
我是在linux里运行的,不需要\r\n\r\n,这个不是问题所在
xyzxyz1111 2005-05-07
  • 打赏
  • 举报
回复
#!/usr/bin/perl
##
## printenv -- demo CGI program which just prints its environment
##
print "Content-type: text/plain; charset=iso-8859-1\r\n\r\n";

foreach $var (sort(keys(%ENV))) {
$val = $ENV{$var};
$val =~ s|\n|\\n|g;
$val =~ s|"|\\"|g;
print "${var}=\"${val}\"\n";
}

37,743

社区成员

发帖
与我相关
我的任务
社区描述
JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
社区管理员
  • 脚本语言(Perl/Python)社区
  • WuKongSecurity@BOB
加入社区
  • 近7日
  • 近30日
  • 至今

试试用AI创作助手写篇文章吧