Как я могу узнать имя файла требуемого файла в Perl?

Question

Как мне узнать имя файла, который был require 'd, из этого файла? Я могу заглянуть в %INC, чтобы найти имена всех файлов, которые были загружены, но я ищу что-то вроде $0, которое послужило бы ключом к %INC.

Answer 1

простой

my $filename=__FILE__;
print __FILE__;

должен сделать ..

также смотрите здесь (делает-Per-модуль-знаю-где-то-он-установлен) и здесь (perldoc на специальных литералах) для получения дополнительных идей