perl - 如何获取正在运行的 Perl 脚本的名称

Question

如何获取脚本的名称？

例如，我有一个名为 XXX.pl 的 Perl 脚本。该文件包含:

$name = #some function that obtains the script's own name
print $name;

输出:

XXX.pl

我想将此比作获取脚本目录的 CWD 函数。我还需要一个获取脚本名称的函数。

Answer 1

正在运行的程序的名称可以在$0变量中找到:

print $0;

man perlvar对于其他特殊变量。