perl – 为什么我需要显式输出IIS的HTTP头而不是Apache？

use CGI;
my $input = new CGI();
print "http/1.0 200 OK";
print $input->header();

use CGI;
my $input = new CGI();
print $input->header('text/html','200 OK');

http和CGI是不同的东西. Perl CGI模块调用它所做的“http头”,但它实际上只是服务器在返回客户端之前修复的CGI头.它们看起来很相似,这就是为什么人们会感到困惑,以及为什么CGI.pm文档无法通过将它们称为错误的东西来帮助它们.

Apache修复了CGI标头,使其成为http标头,包括添加http状态行以及可能需要的任何其他内容.

如果您的网络服务器没有为您修复标头,那么可能需要一个“未解析的标头”,您负责整个标头.要在CGI.pm中执行此操作,您必须将-nph选项添加到对标头的调用中,并且您必须自己创建完整标头,包括Expires和Last-Modified等标头.请参阅Creating a Standard HTTP Header下的文档.您可以通过三种方式打开NPH：

use CGI qw(-nph)

CGI::nph(1)

print header( -nph => 1,...)

您使用的是旧版本的IIS吗？ CGI.pm用于为IIS自动打开NPH功能,但现在该行已在CGI.pm的源代码中注释掉：

# This no longer seems to be necessary
# Turn on NPH scripts by default when running under IIS server!
# $NPH++ if Defined($ENV{'SERVER_SOFTWARE'}) && $ENV{'SERVER_SOFTWARE'}=~/IIS/;