如何用Perl設置HTTP頭？

Question

我無法在Perl中設置標題。

print "Expires: Thu, 08 May 2003 08:37:25 GMT\n\n"; 
print "Content-Type: text/html; charset=windows-1251\n\n"; 
print "Vary: Accept-Encoding\n\n"; 

第一個只工作。然後我有Content-Type: text/x-perl。哪裏不對？

Answer 1

我假設您使用CGI將您的Web服務器連接到Perl。 CGI使用空白行將響應主體與標題分開。由於

print "Expires: Thu, 08 May 2003 08:37:25 GMT\n\n"; 

打印Expires:頭之後一個空行，剩餘的打印語句被認爲是身體，而不是頭部的一部分。你想：

print "Expires: Thu, 08 May 2003 08:37:25 GMT\n"; 
print "Content-Type: text/html; charset=windows-1251\n"; 
print "Vary: Accept-Encoding\n\n";