python - 是否有与 Python 的 `if __name__ == ' __main_ _'` 等效的 Perl？

Question

有没有办法确定当前文件是否是在 Perl 源代码中执行的文件？在 Python 中，我们使用以下结构来做到这一点:

if __name__ == '__main__':
    # This file is being executed.
    raise NotImplementedError

我可以使用 FindBin 和 __FILE__ 一起破解一些东西，但我希望有一种规范的方式来做到这一点。谢谢!

Answer 1

unless (caller) {
  print "This is the script being executed\n";
}

见 caller .它在主脚本中返回 undef。请注意，这在子例程中不起作用，仅在顶级代码中起作用。