通过不返回完整的HTTP标头集，指定的CGI应用程序行为异常

Question

我在if语句中的脚本中找不到任何错误，其中“ submit”是为此脚本以html形式传递的参数。 错误说

“它返回的标头是” C：\\ perlscripts \\ triallast.pl第125行的语法错误，靠近“）{”

我无法理解导致此错误的原因。 有人能帮我吗？

print ("<html><head><title>Test insert questions</title></head>\n");
  print ("<body>\n");
  <form action = "$ENV{SCRIPT_NAME}" method="GET">

 if (defined (param ("submit"))) {
$sql = "INSERT INTO $quiz_table_name ##(qnumber,question,answer,choice1,choice2,choice3,choice4,choice5)##
values(?, ?, ?, ?, ?, ?, ?, ?)";

 if (!defined ($sql)) { 
     &errorPage("Can't insert " . $sql->errstr());
    }
$qObj= $dbhandle->prepare($sql)or &errorPage("Can't prepare");
$qObj->execute($formHash{'qnumber'}, $formHash{'question'}, $formHash{'answer'}, $formHash{'choice1'}, $formHash{'choice2'}, $formHash{'choice3'}, $formHash{'choice4'}, $formHash{'choice5'});
$dbhandle->do(sql);
$qObj->finish();
}

Answer 1

问题是由您在Perl代码中间放置的HTML块引起的。 那不行

<form action = "$ENV{SCRIPT_NAME}" method="GET">

Perl代码中的任何HTML都必须在一个字符串中，该字符串最终会被打印到STDOUT。 因此，该链接可能应该是：

print qq(<form action = "$ENV{SCRIPT_NAME}" method="GET">);

请注意，我在这里使用qq(...) ，因为您想要双引号字符串，但是字符串的内容已经包含双引号字符。 使用qq(...)是处理该问题的好方法，而不必转义嵌入的双引号。

那将解决您的问题。 但似乎您还需要进一步了解这些东西的工作原理。 我不确定您如何意识到需要打印<html>和<body>行，但是没有看到需要打印<form>行。

而且，除此之外，到了2015年。将原始HTML放入CGI程序已经十五年了。 请阅读CGI :: Alternatives并选择一种更易于维护的方式来使您的生活更轻松。