perl - 尝试使用 fast-cgi 和 lighttpd 运行 perl 脚本，但文件只是下载

Question

问题是我的 .pl 脚本被下载为空白文件而不是被执行。

我读到:http://redmine.lighttpd.net/wiki/lighttpd/ApplicationsUsingLighttpd

我的 dispatch.fcgi 如下:(它位于 usr/bin/

#!perl
#!/usr/bin/perl
use strict;
use CGI::Fast;
use Embed::Persistent; {
my $p = Embed::Persistent->new();
while (new CGI::Fast) {
my $filename = $ENV{SCRIPT_FILENAME};
my $package = $p->valid_package_name($filename);
my $mtime;
if ($p->cached($filename, $package, \$mtime)) {
eval {$package->handler;};
}
else {
$p->eval_file($ENV{SCRIPT_FILENAME});
}
}
}

这是我在 lighttpd 配置文件中的代码:

".pl" =>
((
"fastcgi.debug" => 1,
"bin-path" => "/usr/bin/dispatch.fcgi",
"socket" => "/tmp/fcgi.socket",
"check-local" => "disable",
"min-procs" => 1,
"max-procs" => 5,
"idle-timeout" => 20
))

我必须安装 CGI.pm 和嵌入的 cpan 模块。现在我的服务器日志中没有收到任何错误，但正如我所说，脚本只是下载了。

感谢您的帮助!

Answer 1

您似乎没有发送正确的 header 。使用 CGI 模块中的“header”函数发出 header

$cgi = new CGI;
$cgi->header();

那么你应该可以开始了。

有关更多信息，请查看 header 文档:

http://cpansearch.perl.org/src/LDS/CGI.pm-3.43/cgi_docs.html#header