Esiste un Perl equivalente a `if __name__ == '__main __'` di Python?

Question

C'è un modo per determinare se il file corrente è quello che viene eseguito nel sorgente Perl? In Python facciamo questo con la seguente costrutto:

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

posso incidere qualcosa insieme utilizzando FindBin e __FILE__, ma sto sperando che ci sia un modo canonico di fare questo. Grazie!

Answer 1

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

Vedere caller. Restituisce undef nello script principale. Si noti che non funziona all'interno di una subroutine, solo nel codice di primo livello.

Answer 2

Vedere la parte "Sottoclassi per applicazioni (capitolo 18)" dell'articoloFive Ways to Improve Your Perl Programming.

Answer 3

unless caller è buono, ma un parallelo più diretto, così come una più controllo esplicito, è:

use English qw<$PROGRAM_NAME>; 

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

Ho pensato di mettere che là fuori.

EDIT

Tenete a mente che $PROGRAM_NAME (o '$0') è scrivibile, quindi questo non è assoluto. Ma, nella maggior parte delle pratiche - tranne che in caso di incidente o moduli scatenati - questo probabilmente non sarà cambiato, o modificato al massimo locally in un altro ambito.