Есть ли эквивалент Perl для Python `if __name__ == '__main __'`?

Question

Есть ли способ определить, является ли текущий файл тем, который выполняется в Perl-источнике? В Python мы делаем это с помощью следующей конструкции:

if __name__ == '__main__': 
    # This file is being executed. 
    raise NotImplementedError 

Я могу взломать что-нибудь вместе, используя FindBin и __FILE__, но я надеюсь, что есть канонический способ сделать это. Благодаря!

Answer 1

unless (caller) { 
    print "This is the script being executed\n"; 
} 

См. caller. Он возвращает undef в главном скрипте. Обратите внимание, что это не работает внутри подпрограммы только в коде верхнего уровня.

Answer 2

См. Раздел «Подклассы для применения (глава 18)» статьи brian d foyFive Ways to Improve Your Perl Programming.

Answer 3

unless caller хорошо, но более прямая параллель, а также более Явная проверка является:

use English qw<$PROGRAM_NAME>; 

if ($PROGRAM_NAME eq __FILE__) { 
    ... 
} 

Просто думал, что я положил, что там.

EDIT

Имейте в виду, что $PROGRAM_NAME (или '$0') доступен на запись, так что это не является абсолютным. Но, в большинстве случаев - кроме случаев аварии или модулей взрыва - это, вероятно, не будет изменено или изменено не более locally в другой области.