पर्ल मॉड्यूल के विभिन्न उदाहरण
अंतर्निहित पर्ल मॉड्यूल और उपयोगकर्ता-परिभाषित मॉड्यूल का उपयोग करने के तरीके ट्यूटोरियल के इस भाग में दिखाए गए हैं।
उदाहरण 1: अंतर्निर्मित मॉड्यूल का उपयोग करना
इस उदाहरण में, पर्ल के तीन अंतर्निहित मॉड्यूल का उपयोग दिखाया गया है। ये 'सख्त', 'चेतावनी' और '5.34.0' हैं। पर्ल स्क्रिप्ट लिखने के लिए विभिन्न प्रकार के प्रतिबंधों को सक्षम करने के लिए 'सख्त' मॉड्यूल का उपयोग किया जाता है। उदाहरण के लिए, यदि इस मॉड्यूल का उपयोग स्क्रिप्ट में किया जाता है तो कोई भी वेरिएबल 'my' कीवर्ड के बिना घोषित नहीं किया जा सकता है। 'चेतावनी' मॉड्यूल का उपयोग स्क्रिप्ट को निष्पादित करने के बाद विभिन्न प्रकार के चेतावनी संदेशों को प्रदर्शित करने के लिए किया जाता है जो कोडर को त्रुटि को समझने में मदद करता है। स्क्रिप्ट में इस मॉड्यूल की विभिन्न विशेषताओं का उपयोग करने के लिए '5.34.0' मॉड्यूल का उपयोग किया जाता है। संदेशों को न्यूलाइन के साथ प्रिंट करने के लिए उपयोग किया जाने वाला 'कहो' फ़ंक्शन इस मॉड्यूल की विशेषता है।
#!/usr/bin/perl
#कोडिंग के लिए प्रतिबंध सक्षम करें
सख्त उपयोग करें ;
#त्रुटि के लिए चेतावनी संदेश प्रदर्शित करें
उपयोग चेतावनियाँ ;
#विभिन्न सेवाएँ सक्षम करें
5.34.0 का उपयोग करें ;
#'सख्त' मॉड्यूल के लिए 'माय' कीवर्ड का उपयोग अनिवार्य है
मेरी $भाषा = 'पर्ल' ;
#'कहें' सुविधा का उपयोग सक्षम करें
कहना '$भाषा प्रोग्रामिंग सीखें।' ;
आउटपुट:
स्क्रिप्ट निष्पादित करने के बाद निम्नलिखित आउटपुट दिखाई देता है:
उदाहरण 2: उपयोगकर्ता-परिभाषित मॉड्यूल का उपयोग करना
पर्ल उपयोगकर्ता '.pm' एक्सटेंशन के साथ एक फ़ाइल बनाकर किसी विशेष उद्देश्य के लिए अपना मॉड्यूल बना सकते हैं। इस उदाहरण में, एक उपयोगकर्ता-परिभाषित मॉड्यूल बनाया गया है और इसे 'उपयोग' कीवर्ड का उपयोग करके किसी अन्य पर्ल स्क्रिप्ट में उपयोग किया जाता है।
एक उपयोगकर्ता-परिभाषित मॉड्यूल बनाएं:
निम्नलिखित स्क्रिप्ट के साथ 'बोनस.पीएम' नामक एक फ़ाइल बनाएं। यहां, 'पैकेज' कीवर्ड का उपयोग यह परिभाषित करने के लिए किया जाता है कि यह एक मॉड्यूल है। इस मॉड्यूल में एक सबरूटीन होता है जो वेतन और बिक्री राशि के आधार पर किसी कर्मचारी के बोनस की गणना करता है। पर्ल स्क्रिप्ट से दो तर्क मान पारित किए जाते हैं जिसमें इस मॉड्यूल का उपयोग किया जाता है। पहले तर्क में वेतन शामिल है और दूसरे तर्क में बिक्री राशि शामिल है। यदि वेतन 10000 से अधिक है तो बोनस बिक्री राशि का 15% है। यदि वेतन 7000 से अधिक है तो बोनस बिक्री राशि का 10% है। यदि वेतन 10000 से कम है तो बोनस बिक्री राशि का 5% है। . '1;' सत्य लौटाने के लिए मॉड्यूल के अंत में उपयोग किया जाता है। अन्यथा, एक त्रुटि मुद्रित होती है.
बोनस.दोपहर
#!/usr/bin/perlसख्त उपयोग करें ;
उपयोग चेतावनियाँ ;
5.34.0 का उपयोग करें ;
पैकेज बोनस ;
#बोनस की गणना के लिए सबरूटीन घोषित करें
उप गणना_बोनस
{
# वेरिएबल को प्रारंभ करें
मेरी $वेतन = $_ [ 0 ] ;
मेरी $विक्रय_राशि = $_ [ 1 ] ;
मेरा $बोनस = 0.0 ;
#बोनस की गणना करें
अगर ( $वेतन > 10000 )
{
$बोनस = $बिक्री_राशि* 0.15 ;
}
elsif ( $वेतन > 7000 )
{
$बोनस = $बिक्री_राशि* 0.10 ;
}
अन्य
{
$बोनस = $बिक्री_राशि* 0.05 ;
}
#गणना किया गया बोनस वापस करें
वापस करना $बोनस ;
}
1 ;
पर्ल स्क्रिप्ट में एक मॉड्यूल आयात करें:
निम्नलिखित स्क्रिप्ट के साथ एक पर्ल फ़ाइल बनाएं जो 'बोनस' मॉड्यूल को आयात करती है जो स्क्रिप्ट में निर्दिष्ट वेतन और बिक्री राशि के आधार पर किसी कर्मचारी की बोनस राशि की गणना करने के लिए पहले बनाया गया है।
#!/usr/bin/perlसख्त उपयोग करें ;
उपयोग चेतावनियाँ ;
5.34.0 का उपयोग करें ;
बोनस का उपयोग करें ;
#वेरिएबल आरंभ करें
मेरा $नाम = 'Mir Sabbir' ;
मेरी $वेतन = 60000 ;
मेरी $sal_amount = 9700 ;
#मॉड्यूल से सबरूटीन को कॉल करें
मेरा $बोनस = बोनस::गणना_बोनस ( $वेतन , $sal_राशि ) ;
मेरा $वेतन_बोनस के साथ = $वेतन + $बोनस ;
#बिक्री के आधार पर कर्मचारी जानकारी प्रिंट करें
कहना 'कर्मचारी विवरण: \एन ' ;
कहना 'नाम: $नाम' ;
कहना 'वेतन: $वेतन' ;
कहना 'वेतन(बोनस के साथ): $वेतन_बोनस के साथ' ;
आउटपुट:
स्क्रिप्ट निष्पादित करने के बाद निम्न आउटपुट दिखाई देता है। यहाँ, '-I।' उपयोगकर्ता द्वारा परिभाषित आयातित मॉड्यूल का पता लगाने के लिए स्क्रिप्ट को निष्पादित करते समय विकल्प का उपयोग करना होगा:
उदाहरण 3: 'आवश्यकता' का उपयोग करके उपयोगकर्ता-परिभाषित मॉड्यूल का उपयोग करना
'आवश्यकता' फ़ंक्शन पर्ल स्क्रिप्ट में मॉड्यूल आयात करने का एक और तरीका है और इसे इस उदाहरण में दिखाया गया है। पहले बनाए गए 'बोनस' मॉड्यूल को 'आवश्यकता' फ़ंक्शन का उपयोग करके स्क्रिप्ट में आयात किया जाता है। इस स्क्रिप्ट में उपयोगकर्ता से वेतन और बिक्री राशि का मान लिया जाता है। स्क्रिप्ट का दूसरा भाग पिछले उदाहरण के समान है।
#!/usr/bin/perlसख्त उपयोग करें ;
उपयोग चेतावनियाँ ;
5.34.0 का उपयोग करें ;
बोनस की आवश्यकता है ;
#उपयोगकर्ता से इनपुट लें
कहना 'कर्मचारी का नाम दर्ज करें:' ;
चॉम्प ( मेरा $नाम = <> ) ;
कहना 'वेतन दर्ज करें:' ;
चॉम्प ( मेरी $वेतन = <> ) ;
कहना 'बिक्री राशि दर्ज करें:' ;
चॉम्प ( मेरी $sal_amount = <> ) ;
#मॉड्यूल से सबरूटीन को कॉल करें
मेरा $बोनस = बोनस::गणना_बोनस ( $वेतन , $sal_राशि ) ;
मेरा $वेतन_बोनस के साथ = $वेतन + $बोनस ;
#बिक्री के आधार पर कर्मचारी जानकारी प्रिंट करें
कहना 'कर्मचारी विवरण: \एन ' ;
कहना 'नाम: $नाम' ;
कहना 'वेतन: $वेतन' ;
कहना 'वेतन(बोनस के साथ): $वेतन_बोनस के साथ' ;
आउटपुट:
स्क्रिप्ट निष्पादित करने के बाद निम्नलिखित आउटपुट दिखाई देता है:
निष्कर्ष
पर्ल में अंतर्निहित और उपयोगकर्ता-परिभाषित दोनों मॉड्यूल के उपयोग इस ट्यूटोरियल में सरल उदाहरणों का उपयोग करके दिखाए गए हैं।