Pythonの `if __name__ == '__main __'`に相当するPerlはありますか？

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

brian d foyの記事Five Ways to Improve Your Perl Programmingの「アプリケーションのサブクラス（第18章）」の部分を参照してください。

Answer 3

unless callerは良いですが、より直接的なパラレルだけでなく、より多くの明示的なチェック、次のとおりです。

use English qw<$PROGRAM_NAME>; 

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

はちょうど私がそこにそれを出すだろうと思っていました。

EDIT

$PROGRAM_NAME（または '$0'）が書き込み可能であることを覚えておいてください、これは絶対的ではありません。しかし、事故やモジュールの急増を除いて、ほとんどの場合、これは変更されない可能性があります。また、多くの場合、別のスコープ内でlocallyに変更される可能性があります。