How to set HTTP-headers with Perl?

Question

I Can't set headers in 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";

First one works only. Then I have Content-Type: text/x-perl. What is wrong?

I forget, does HTTP expect double CRLF between headers, or just one? I know you must include two before the message body. BTW it's usually \r\n for CRLF — vol7ron
– vol7ron, Commented Dec 16, 2015 at 7:07
If you use modules that do all that for you, you don't need to know these little details. :) — brian d foy
– brian d foy, Commented Dec 16, 2015 at 8:30
Two new lines are used to separate the headers from the body. So your headers end at your first new line (i.e. after your first header). — Dave Cross
– Dave Cross, Commented Dec 16, 2015 at 14:02

cjm · Accepted Answer · 2015-12-16 07:18:08Z

4

I'll assume you're using CGI to connect your web server to Perl. CGI uses a blank line to separate the headers from the response body. Since

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

prints a blank line after the Expires: header, the remaining print statements are considered part of the body, not headers. You wanted:

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";

answered Dec 16, 2015 at 7:18

cjm

62.2k9 gold badges133 silver badges179 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Daniel Böhmer Over a year ago

You might want to remove the second \n for the last header line add another line print "\n"; # finish HTTP header to avoid this exact mistake when adding more header lines in the future.

Collectives™ on Stack Overflow

How to set HTTP-headers with Perl?

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related