在Perl中，是否有一个关键字表示当前源文件所在的目录？

Question

  

可能重复：
  In Perl, how do I get the directory or path of the current executing code?

不是当前工作目录，而是解释源的目录。

在 PHP 中，它是__DIR__关键字， Perl 中有这样的内容吗？

Answer 1

这有几个不同的来源。您可以尝试$ ENV {PWD}，或使用Cwd模块：

use Cwd;
my $cwd = getcwd;