LINUX.ORG.RU

Perl - как получить имя файла скрипта, который выполняется?


0

0

Подскажите пожалуйста как в Perl получить имя файла скрипта, который выполняется? Т.е. есть скрипт "test.pl", надо чтобы он сам мог узнать, что его имя - "test.pl".

Скрипт будет запускатся через Web (CGI).

Я нашел такой вариант: my ($package, $filename, $line) = caller;

Но он не совсем подходит т.к. возвращает имя текушего модуля, а мой скрипт делает require ещё нескольких файлов (модулей) и в одном из них надо получить имя вызванного скрипта.

Спасибо!

anonymous

Ответ на: комментарий от stassats

Да, оно, спасибо!
Сам уже нашел :)

anonymous
()

Правильное решение - модуль FindBin из стандартной поставки перла. $0 на некоторых системах плохо работает, если скрипт запускали как perl script.pl

anonymous
()

А помоему в %ENV где-то лежит эта инфа

anterior
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.