పెర్ల్ మాడ్యూల్స్ యొక్క వివిధ ఉదాహరణలు
అంతర్నిర్మిత పెర్ల్ మాడ్యూల్స్ మరియు యూజర్-డిఫైన్డ్ మాడ్యూల్‌లను ఉపయోగించే పద్ధతులు ట్యుటోరియల్ యొక్క ఈ భాగంలో చూపబడ్డాయి.
ఉదాహరణ 1: అంతర్నిర్మిత మాడ్యూల్‌ని ఉపయోగించడం
ఈ ఉదాహరణలో, పెర్ల్ యొక్క మూడు అంతర్నిర్మిత మాడ్యూల్స్ యొక్క ఉపయోగాలు చూపబడ్డాయి. ఇవి 'కఠినమైనవి', 'హెచ్చరికలు' మరియు '5.34.0'. పెర్ల్ స్క్రిప్ట్‌లను వ్రాయడానికి వివిధ రకాల పరిమితులను ప్రారంభించడానికి “స్ట్రిక్ట్” మాడ్యూల్ ఉపయోగించబడుతుంది. ఉదాహరణకు, ఈ మాడ్యూల్ స్క్రిప్ట్‌లో ఉపయోగించబడితే 'నా' కీవర్డ్ లేకుండా ఏ వేరియబుల్ ప్రకటించబడదు. కోడర్‌కు లోపాన్ని అర్థం చేసుకోవడంలో సహాయపడే స్క్రిప్ట్‌ను అమలు చేసిన తర్వాత వివిధ రకాల హెచ్చరిక సందేశాలను ప్రదర్శించడానికి “హెచ్చరికలు” మాడ్యూల్ ఉపయోగించబడుతుంది. స్క్రిప్ట్‌లో ఈ మాడ్యూల్ యొక్క విభిన్న లక్షణాలను ఉపయోగించడానికి “5.34.0” మాడ్యూల్ ఉపయోగించబడుతుంది. కొత్త లైన్‌తో సందేశాలను ప్రింట్ చేయడానికి ఉపయోగించే “సే” ఫంక్షన్ ఈ మాడ్యూల్ యొక్క లక్షణం.
#!/usr/bin/perl
#కోడింగ్ కోసం పరిమితిని ప్రారంభించండి
కఠినంగా ఉపయోగించండి ;
#లోపం కోసం హెచ్చరిక సందేశాన్ని ప్రదర్శించు
వా డు హెచ్చరికలు ;
#వివిధ సేవలను ప్రారంభించండి
5.34.0 ఉపయోగించండి ;
'స్ట్రిక్ట్' మాడ్యూల్ కోసం 'నా' కీవర్డ్‌ని ఉపయోగించడం తప్పనిసరి
నా $భాష = 'పెర్ల్' ;
#'సే' ఫీచర్ వినియోగాన్ని ప్రారంభించండి
అంటున్నారు '$language ప్రోగ్రామింగ్ నేర్చుకోండి.' ;
అవుట్‌పుట్:
స్క్రిప్ట్‌ను అమలు చేసిన తర్వాత క్రింది అవుట్‌పుట్ కనిపిస్తుంది:
ఉదాహరణ 2: వినియోగదారు నిర్వచించిన మాడ్యూల్‌ని ఉపయోగించడం
Perl వినియోగదారులు “.pm” పొడిగింపుతో ఫైల్‌ను సృష్టించడం ద్వారా నిర్దిష్ట ప్రయోజనం కోసం వారి మాడ్యూల్‌ని సృష్టించవచ్చు. ఈ ఉదాహరణలో, వినియోగదారు నిర్వచించిన మాడ్యూల్ సృష్టించబడుతుంది మరియు ఇది 'ఉపయోగించు' కీవర్డ్‌ని ఉపయోగించి మరొక పెర్ల్ స్క్రిప్ట్‌లో ఉపయోగించబడుతుంది.
వినియోగదారు నిర్వచించిన మాడ్యూల్‌ను సృష్టించండి:
కింది స్క్రిప్ట్‌తో “Bonus.pm” పేరుతో ఫైల్‌ను సృష్టించండి. ఇక్కడ, “ప్యాకేజీ” కీవర్డ్ అది మాడ్యూల్ అని నిర్వచించడానికి ఉపయోగించబడుతుంది. ఈ మాడ్యూల్ జీతం మరియు విక్రయాల మొత్తం ఆధారంగా ఉద్యోగి యొక్క బోనస్‌ను గణించే సబ్‌ట్రౌటిన్‌ను కలిగి ఉంది. ఈ మాడ్యూల్ ఉపయోగించిన పెర్ల్ స్క్రిప్ట్ నుండి రెండు ఆర్గ్యుమెంట్ విలువలు పాస్ చేయబడ్డాయి. మొదటి వాదనలో జీతం ఉంటుంది మరియు రెండవ వాదనలో అమ్మకపు మొత్తం ఉంటుంది. 10000 కంటే ఎక్కువ జీతం ఉంటే అమ్మకపు మొత్తంలో 15% బోనస్. 7000 కంటే ఎక్కువ జీతం ఉంటే అమ్మకపు మొత్తంలో 10% బోనస్. 10000 కంటే తక్కువ జీతం ఉంటే సేల్స్ మొత్తంలో 5% బోనస్. '1;' నిజాన్ని తిరిగి ఇవ్వడానికి మాడ్యూల్ చివరిలో ఉపయోగించబడుతుంది. లేకపోతే, ఒక లోపం ముద్రించబడుతుంది.
Bonus.pm
#!/usr/bin/perlకఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
ప్యాకేజీ బోనస్ ;
#బోనస్‌ని లెక్కించడానికి సబ్‌రౌటిన్‌ను డిక్లేర్ చేయండి
ఉప గణన_బోనస్
{
# వేరియబుల్స్‌ను ప్రారంభించండి
నా $ జీతం = $_ [ 0 ] ;
నా $sales_amount = $_ [ 1 ] ;
నా $బోనస్ = 0.0 ;
#బోనస్‌ను లెక్కించండి
ఉంటే ( $జీతం > 10000 )
{
$బోనస్ = $sales_amount* 0.15 ;
}
ఎల్సిఫ్ ( $జీతం > 7000 )
{
$బోనస్ = $sales_amount* 0.10 ;
}
లేకపోతే
{
$బోనస్ = $sales_amount* 0.05 ;
}
#గణించిన బోనస్‌ను తిరిగి ఇవ్వండి
తిరిగి $బోనస్ ;
}
1 ;
పెర్ల్ స్క్రిప్ట్‌లో మాడ్యూల్‌ను దిగుమతి చేయండి:
స్క్రిప్ట్‌లో కేటాయించిన జీతం మరియు అమ్మకాల మొత్తం ఆధారంగా ఉద్యోగి బోనస్ మొత్తాన్ని లెక్కించడానికి ముందుగా సృష్టించిన “బోనస్” మాడ్యూల్‌ను దిగుమతి చేసే క్రింది స్క్రిప్ట్‌తో పెర్ల్ ఫైల్‌ను సృష్టించండి.
#!/usr/bin/perlకఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
బోనస్ ఉపయోగించండి ;
#వేరియబుల్స్ ప్రారంభించండి
నా $పేరు = 'మీర్ సబ్బీర్' ;
నా $ జీతం = 60000 ;
నా $సల్_మొత్తం = 9700 ;
#మాడ్యూల్ నుండి సబ్‌రౌటిన్‌కి కాల్ చేయండి
నా $బోనస్ = బోనస్::calculate_bonus ( $జీతం , $సాల్_మొత్తం ) ;
నా $salary_with_bonus = $ జీతం + $ బోనస్ ;
#సేల్స్ ఆధారంగా ఉద్యోగి సమాచారాన్ని ప్రింట్ చేయండి
అంటున్నారు 'ఉద్యోగి వివరాలు: \n ' ;
అంటున్నారు 'పేరు: $పేరు' ;
అంటున్నారు 'జీతం: $ జీతం' ;
అంటున్నారు 'జీతం(బోనస్‌తో): $salary_with_bonus' ;
అవుట్‌పుట్:
స్క్రిప్ట్‌ని అమలు చేసిన తర్వాత క్రింది అవుట్‌పుట్ కనిపిస్తుంది. ఇక్కడ, '-I.' వినియోగదారు నిర్వచించిన దిగుమతి చేయబడిన మాడ్యూల్‌ను కనుగొనడానికి స్క్రిప్ట్‌ను అమలు చేసే సమయంలో ఎంపికను ఉపయోగించాలి:
ఉదాహరణ 3: “అవసరం” ఉపయోగించి వినియోగదారు నిర్వచించిన మాడ్యూల్‌ని ఉపయోగించడం
'అవసరం' ఫంక్షన్ అనేది పెర్ల్ స్క్రిప్ట్‌లోని మాడ్యూల్‌లను దిగుమతి చేయడానికి మరొక మార్గం మరియు ఇది ఈ ఉదాహరణలో చూపబడింది. గతంలో సృష్టించిన 'బోనస్' మాడ్యూల్ 'అవసరం' ఫంక్షన్‌ని ఉపయోగించి స్క్రిప్ట్‌లోకి దిగుమతి చేయబడింది. జీతం మరియు విక్రయాల మొత్తం విలువలు ఈ స్క్రిప్ట్‌లో వినియోగదారు నుండి తీసుకోబడ్డాయి. స్క్రిప్ట్ యొక్క ఇతర భాగం మునుపటి ఉదాహరణ వలె ఉంటుంది.
#!/usr/bin/perlకఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
బోనస్ అవసరం ;
#యూజర్ నుండి ఇన్‌పుట్ తీసుకోండి
అంటున్నారు 'ఉద్యోగి పేరును నమోదు చేయండి:' ;
chomp ( నా $పేరు = <> ) ;
అంటున్నారు 'జీతం నమోదు చేయండి:' ;
chomp ( నా $ జీతం = <> ) ;
అంటున్నారు 'విక్రయాల మొత్తాన్ని నమోదు చేయండి:' ;
chomp ( నా $సల్_మొత్తం = <> ) ;
#మాడ్యూల్ నుండి సబ్‌రౌటిన్‌కి కాల్ చేయండి
నా $బోనస్ = బోనస్::calculate_bonus ( $జీతం , $సాల్_మొత్తం ) ;
నా $salary_with_bonus = $ జీతం + $ బోనస్ ;
#సేల్స్ ఆధారంగా ఉద్యోగి సమాచారాన్ని ప్రింట్ చేయండి
అంటున్నారు 'ఉద్యోగి వివరాలు: \n ' ;
అంటున్నారు 'పేరు: $పేరు' ;
అంటున్నారు 'జీతం: $ జీతం' ;
అంటున్నారు 'జీతం(బోనస్‌తో): $salary_with_bonus' ;
అవుట్‌పుట్:
స్క్రిప్ట్‌ని అమలు చేసిన తర్వాత క్రింది అవుట్‌పుట్ కనిపిస్తుంది:
ముగింపు
పెర్ల్‌లో అంతర్నిర్మిత మరియు వినియోగదారు నిర్వచించిన మాడ్యూల్స్ రెండింటి ఉపయోగాలు సాధారణ ఉదాహరణలను ఉపయోగించి ఈ ట్యుటోరియల్‌లో చూపబడ్డాయి.