क्या पाइथन के `if __name__ == '__main __'` के बराबर एक पर्ल है?

Question

क्या यह निर्धारित करने का कोई तरीका है कि वर्तमान फ़ाइल को पर्ल स्रोत में निष्पादित किया जा रहा है या नहीं? अजगर में हम निम्नलिखित निर्माण के साथ ऐसा करते हैं:

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__) { 
    ... 
} 

बस सोचा था कि मैं वहाँ है कि बाहर कर दिया था।

संपादित

ध्यान रखें कि $PROGRAM_NAME (या '$0') लिखने योग्य है, इसलिए इस निरपेक्ष नहीं है। लेकिन, अधिकांश अभ्यास में - दुर्घटना, या रैंपिंग मॉड्यूल को छोड़कर - यह संभवतः बदला नहीं जाएगा, या locally पर किसी अन्य दायरे में बदल दिया जाएगा।