Czy istnieje odpowiednik Perla dla `jeśli __name__ == '__main __'`?

Question

Czy istnieje sposób ustalenia, czy bieżący plik jest tym, który jest wykonywany w źródle Perla? W Pythonie możemy to zrobić z następującej konstrukcji:

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

mogę siekać coś razem używając FindBin i __FILE__, ale mam nadzieję, że to kanoniczny sposób to zrobić. Dzięki!

Answer 1

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

Zobacz caller. Zwraca undef w skrypcie głównym. Zauważ, że to nie działa wewnątrz podprogramu, tylko w kodzie najwyższego poziomu.

Answer 2

Zobacz część "Podklasy zastosowań (rozdział 18)" artykułu brian d foy w artykule Five Ways to Improve Your Perl Programming.

Answer 3

unless caller jest dobry, ale bardziej bezpośrednie równoległe, jak również bardziej jednoznaczne sprawdzenie jest:

use English qw<$PROGRAM_NAME>; 

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

Pomyślałem, że mogę umieścić tam.

EDIT

Należy pamiętać, że $PROGRAM_NAME (lub '$0') jest zapisywalny, więc to nie jest absolutne. Jednak w większości przypadków - z wyjątkiem wypadków lub szalejących modułów - prawdopodobnie nie ulegnie to zmianie lub zmieni się najwyżej locally w innym zakresie.