पुरानी perl sw

Question

पर अपनी खुद की प्रगति जोड़ने का सही तरीका मुझे वास्तव में पुराना पर्ल सिस्टम (लगभग 8-10 वर्ष पुराना) मिला, लेकिन एक बड़ी (100+ बजे फाइलें)। अब किसी कारण से इसे "remodernize" की आवश्यकता है - चरण-दर-चरण।

पहली बात मैं कर पाने क्या चाहते हैं में से एक हर मॉड्यूल में मेरी pragma सम्मिलित है:

use MySw::PerlDefs; 

क्या Modern::Perl में तरह बातें शामिल होंगे और/या इस सवाल के रूप में: How to make "use My::defaults" with modern perl & utf8 defaults?

QST1: अनुशंसित तरीका क्या है?

1. जोड़ने use MySw::PerlDefs; तो

    
   package MySw::SomePackage; 
   use MySw::PerlDefs;   #my new "pragma" 
   

2. मिलता है या PerlDefs पैकेज घोषणा के बाद शुरू ब्लॉक में संलग्न जोड़ना होगा? उदा .:

    
   package MySw::SomePackage; 
   BEGIN {use MySw::PerlDefs;} #my new "pragma" in the BEGIN block 
   

सवाल:

• पसंदीदा तरीका क्या है?
• अंतर और/या दोष क्या हैं?

Ps: मैं संकलन समय पर निष्कासित BEGIN की तुलना में समझता हूं, लेकिन उपर्युक्त संदर्भ में - यह "सरल उपयोग" से बेहतर नहीं है?

Answer 1

एक BEGIN ब्लॉक में उपयोग को लपेटना काम नहीं करेगा; लेक्सिकल प्रागम्स का प्रभाव ब्लॉक के अंत से आगे नहीं बढ़ेगा।

की तुलना करें:

$ perl -e'BEGIN{ use Modern::Perl; } $x=42; print "$x\n"' 
42 
$ perl -e'use Modern::Perl; $x=42; print "$x\n"' 
Global symbol "$x" requires explicit package name at -e line 1. 
Global symbol "$x" requires explicit package name at -e line 1. 
Execution of -e aborted due to compilation errors.