我遇到了上述错误。
主要脚本位于下面
#!/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=<body>: publish_scholarship.pl,
答案 0 :(得分:2)
将打印标题行移至顶部。如果仍然无法正常工作,请将其移至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