Perl 在浏览器中以纯文本形式加载

Question

因此，这在两分钟前工作正常，但由于某种原因现在停止工作了。

#!/usr/bin/perl
# Dan Edwards


open (FILE, "donations.txt") || &ErrorMessage;
@filemessages = <FILE>;
close (FILE);

print <<EndHTML;


Content-type: text/html
<html>
<head>
<title>Teenage Cancer Research Charity Donations</title>
<link rel="stylesheet" type="text/css" href="sponsor.css\">


</head>\
<body >
<div id="container">

        <div id="header">
            <h1><center>Teenage Cancer Research</center></h1>
        </div>


  <div id="nav">

  </div>



  <div id="aside">

  </div>

        <div id="welcome">
            <h1>Welcome to the Teenage Cancer Research Donations Page<h1>




        </div>






<div id="donationsTable">
EndHTML

$n=0;
print "<UL><H2>Below are the Current Donations</H2></UL>";
foreach $message (@filemessages) {
    print "<LI><I>$message</I>\n"; 
    $n++;
}

print<<EndHTML;
<br>
<br>

<h1>Please dig deep and give whatever you can!</h1>
<br>
<a href="donate.html" class="button"/>SPONSOR ME!</a>

</div>




<br>
<br>
<br>
<div id="totalTable">
<table class="center" border="1">
<tr><th>Total Donated Online</th>
<td>£</td>
<th>Gift Aid Plus Supplement</th>
<td>£</td>
</tr>



</table>
</div>

  <div id="footer">
Copyright © Teenage Cancer Research
</div>
  </div>



</body>
</html>

EndHTML

它找到文件并打开页面，但加载为纯文本。我完全卡住了，不知道该怎么办。

我是一个完全的 Perl 新手，我不知道为什么它不起作用

Answer 1

AddHandler 您需要确保 Web 服务器配置为正确执行代码。

Answer 2

已修复，在每一行上返回 PRINT。

Answer 3

你的错误在这里：

Content-type: text/html
<html>

您需要在 Content-Type 之后多一行。

Perl 在浏览器中以纯文本形式加载

Perl is loading as plain text in browser

html

css

perl

cgi