Perl 是否有相当于 Python 的“if __name__ == '__main__'”？

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";
}

请参阅调用者。 它在主脚本中返回undef。 请注意，这在子例程内部不起作用，仅在顶级代码中起作用。

Answer 2

请参阅 brian d foy 文章的“应用程序子类（第 18 章）”部分五种方法改进您的 Perl 编程。

Answer 3

unless caller 很好，但更直接的并行以及更显式检查是：

use English qw<$PROGRAM_NAME>;

if ( $PROGRAM_NAME eq __FILE__ ) { 
    ...
}

只是想我会把它放在那里。

编辑

请记住，$PROGRAM_NAME（或“$0”）是可写的，因此这不是绝对的。 但是，在大多数实践中（除了意外或模块失控之外），这可能不会改变，或者至多改变本地在另一个范围内。