打开文件句柄在mod_perl下不起作用ModPerl :: PerlRun

Question

我是第一次尝试使用mod_perl。 我是新手。 我选择了ModPerl::PerlRun因为我不想对已有的脚本进行任何修改

我按照在Ubuntu 12.04上安装Apache2 / Modperl中的说明进行操作

我将script.pl上传到/perl ，除了该脚本，脚本看起来运行良好

open(my $fh, '<:encoding(UTF-8)', 'page_template.htm') or die $!;

它不会打开文件并且死于消息

No such file or directory at /var/www/perl/script.pl

Answer 1

更新

请注意， ModPerl::PerlRun的文档中有这样说

META：记录一下，目前我们不将chdir（）放入脚本的目录，因为它会影响线程下的整个过程。

因此，仅在程序代码中执行chdir可能不可行，应使用下面的第二个选项

---

原版的*

您CGI程序的当前工作目录不是您所想的。 它最有可能是根目录/

您可以使用chdir设置脚本的工作目录

use File::Basename 'dirname';
chdir dirname(__FILE__);

或仅将完整路径添加到要打开的文件的名称中，例如

open my $fh, '<:encoding(UTF-8)', '/perl/page_template.htm' or die $!;

请注意，您不能使用FindBin ，因为您的程序是作为Apache主mod_perl进程的子例程运行的，因此$FindBin::Bin将等于Apache可执行文件httpd的目录，而不是您自己的程序文件的目录。