Perl CGI：错误消息：<br />脚本中的标头格式错误。错误的标头=<正文>：答案

【问题标题】：Perl CGI : Error message: <br />malformed header from script. Bad header=<body>:Perl CGI：错误消息：<br />脚本中的标头格式错误。错误的标头=<正文>：
【发布时间】：2013-01-02 17:10:38
【问题描述】：

我遇到了上述错误。

主脚本在下面

#!/opt/lampp/bin/perl
use lib "/opt/lampp/htdocs/PERL";
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use WEBPAGE::PageDesign;
use HTML::Form;

my $header = get_header() ;
my $html   = parse_form(\%ENV);

print "Content-type: text/html\n\n";
print <<HTML;
$header
$html
HTML

生成的 html 是正确的，但是带有 html 页面的脚本后跟错误

Error message:
<br />malformed header from script. Bad header=&lt;body&gt;: publish_scholarship.pl,

【问题讨论】：

使用 Dumper 并将 $header 和 $html vars 打印到控制台以查看问题所在

标签： perl cgi

【解决方案1】：

将打印标题行移到顶部。如果仍然无法正常工作，请将其移至 BEGIN 块。

use warnings;
use strict;

BEGIN {
   print "Content-type: text/html\n\n";
}

use lib "/opt/lampp/htdocs/PERL";
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use WEBPAGE::PageDesign;
use HTML::Form;


my $header = get_header() ;
my $html   = parse_form(\%ENV);

print <<HTML;
$header
$html
HTML

【讨论】：