有几种方法：

• $0是 POSIX 提供的当前正在执行的脚本，如果脚本位于或低于 CWD，则相对于当前工作目录
• 此外，cwd()和getcwd()由abs_path()模块提供，Cwd并告诉您从何处运行脚本
• 该模块FindBin提供了$Bin&$RealBin变量，这些变量 通常 是执行脚本的路径；该模块还提供$Script&$RealScript是脚本的名称
• __FILE__是 Perl 解释器在编译期间处理的实际文件，包括其完整路径。

我已经看到前三个（$0，Cwd模块和FindBin模块
）在壮观的情况下失败mod_perl，产生无价值的输出，例如'.'或空字符串。在这样的环境中，我使用模块__FILE__并从中获取路径File::Basename：

use File::Basename;
my $dirname = dirname(__FILE__);