file - Perl - 动态/相对文件路径 - 网站

Question

我正在使用 perl 等构建一个网站，我正在尝试打开一个文件并在网站上打印它的内容，但是当使用相对文件路径时我似乎无法使其工作...

    # Load our header.html template file
open (HEADER, "/xampp/htdocs/website/template/header.html") or die "Can't find header.html - check path...";
print (<HEADER>);

有效

但是，如果我能做这样的事情，我会更喜欢它:

# Load our header.html template file
open (HEADER, "/template/header.html") or die "Can't find header.html - check path...";
print (<HEADER>);

Answer 1

如果您的完整路径是

/xampp/htdocs/website/template/header.html

并且您当前位于 /xampp/htdocs/website (这是您的脚本所在的位置，或者被chdir编辑到的位置)，那么您可以使用相对路径:

template/header.html

例如

open my $fh, "<", "template/header.html" or die $!;
print <$fh>;

请注意使用带有词法文件句柄的三参数 open，以及在 die 语句中包含错误 $!。