Как получить имя запущенного Perl-скрипта

Question

Как я могу получить имя скрипта?

Например, у меня есть Perl-скрипт с именем XXX.pl.Этот файл содержит:

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

Вывод:

XXX.pl

Я хотел бы сравнить это с функцией CWD, которая получает каталог сценариев.Мне также нужна функция, которая получает имя скрипта.

Answer 1

Имя запущенной программы можно найти в переменной $0:

print $0;

man perlvar для других специальных переменных.

Answer 2

use File::Basename;
my $name = basename($0);

PS. getcwd() и друзья не дают вам каталог скрипта! Они дают вам рабочий каталог. Если скрипт находится в вашем PATH и вы просто называете его по имени, а не по его полному пути, то getcwd() не будет делать то, что вы говорите. Вы хотите dirname($0) (dirname также находится в File::Basename).

Answer 3

Вам также может быть интересно узнать больше о __FILE__ и, возможно, __LINE__, который дает вам текущую строку, которую я часто использую вместе.

Если вы хотите это для целей отладки, вы можететакже хочу узнать о "warn", "Carp", "caller".

Answer 4

Извлечь модуль FindBin , часть основного дистрибутива Perl. Он экспортирует переменные, которые вы ищете

  EXPORTABLE VARIABLES
        $Bin         - path to bin directory from where script was invoked
        $Script      - basename of script from which Perl was invoked
        $RealBin     - $Bin with all links resolved
        $RealScript  - $Script with all links resolved