是否有一种
方法来确定当前
文件是否是在Perl源中执行的
文件？在Python中，我们使用以下结构：
if __name__ == '__main__':
# This file is being executed.
raise NotImplementedError
我可以使用FindBin和__FILE__一起进行攻击，但我希望有一个规范的方法。谢谢！
unless (caller) {
print "This is the script being executed\n";
}
参见caller.它在主脚本中返回undef。注意，这在子程序中不起作用，只在顶层代码中。
原文链接：https://www.f2er.com/Perl/173338.html
