多個Perl`print $ cgi-> header，<

Question

我有類似的東西：

    #!/usr/bin/perl

use strict;
use warnings;
use CGI::Simple;
use DBI;

my $cgi = CGI::Simple->new;


if ($cgi->param('selid'))
{

    print $cgi->header, <<HTML;
    <br/>this is SELECT 
     HTML
}
elsif ($cgi->param('delid'))
{

    print $cgi->header, <<HTML; 
    <b>this is DELETE</b>
    HTML
}
elsif ($cgi->param('upid'))
{
    print $cgi->header, <<HTML; 
    <b>this is UPDATE</b>
    HTML
}

當我運行這個我得到一個錯誤，如：

錯誤消息：在C：/xampp/htdocs/perl/action.pl第14行EOF之前的任何位置都找不到字符串終止符“ HTML”。

以及何時在<<和HTML;之間<<空格HTML;

比如： print $cgi->header, << HTML;

錯誤更改為：

錯誤消息：在C：/xampp/htdocs/perl/action.pl第14行EOF之前的任何位置都找不到字符串終止符“”，

這是什么原因？

注意：參數是從另一個頁面傳遞的（“ selid”或“ delid”或“ upid”）

Answer 1

必須確保heredocs的結束標記在行的開頭，否則解釋器將不會識別該標記。 因此，將HTML結尾於該行的開頭，在其前面沒有空格。

還要記住，在開始標記周圍使用雙引號（例如，print <<“ HTML”;）可以對變量進行插值，不使用單引號，而不使用標簽而使用標記的行為就像雙引號一樣