为什么我的 Perl CGI 程序显示程序代码，而不是输出？

Question

代码 - TEST.CGI

#!/usr/bin/perl  
use strict;  
use warnings;  

use CGI::FastTemplate;

my $tpl = new CGI::FastTemplate("/some/directory");  
$tpl->no_strict();  
$tpl->define(main    => "test.htm");  
$tpl->assign(TEST_CONTENT=> "Test");  
$tpl->parse(CONTENT   => "main");  
$tpl->print('CONTENT');  

模板文件

< html>  
< head>  
< title>TEST< /title>  
< /head>  

< body>  
$TEST_CONTENT  
< /body>  
< /html>

说明

为什么我在浏览器中看不到所需的输出？当我导航到 test.cgi 文件时，我看到的只是实际代码而不是模板。我做错了什么？

Answer 1

您看到的是代码而不是程序的输出，因为您尚未配置网络服务器来执行该程序，因此它默认以文本/纯文本形式提供文件。

如何配置它取决于您使用的服务器软件。例如，请参阅 Apache 2.2 CGI 文档。

其次，舍邦线缺失。该程序应以以下内容开头：

#!/usr/bin/perl

其中 /usr/bin/perl 是您要使用的 Perl 可执行文件的路径。

此外，并且不会造成问题：

• 您缺少 use strict; 和 use warnings;。您使用的任何 Perl 程序中都应该有样板文件，因为它们会捕获许多问题。
• 您的 HTML 文档没有 Doctype，因此它会触发怪异模式。合适的 Doctype 应该是您编写的任何 HTML 文档中的样板。