సింటాక్స్:
“బ్లెస్” ఫంక్షన్ యొక్క వాక్యనిర్మాణం కింది వాటిలో ఇవ్వబడింది. ఈ ఫంక్షన్‌ను ఒక ఆర్గ్యుమెంట్ లేదా రెండు ఆర్గ్యుమెంట్‌లతో ఉపయోగించవచ్చు. సాధారణంగా, ఈ ఫంక్షన్ రెండు ఆర్గ్యుమెంట్‌లతో ఉపయోగించబడుతుంది, ఇక్కడ మొదటి ఆర్గ్యుమెంట్ రిఫరెన్స్ వేరియబుల్ మరియు రెండవ ఆర్గ్యుమెంట్ మొదటి ఆర్గ్యుమెంట్ ద్వారా సూచించబడే తరగతి పేరు. ఇది ఒక ఆర్గ్యుమెంట్ విలువతో ఉపయోగించినప్పుడు, రిఫరెన్స్ వేరియబుల్ ప్రస్తుత ప్యాకేజీని సూచిస్తుంది.
ఆశీర్వదించండి
లేదా
ఆశీర్వదించండి , తరగతి పేరు
బ్లెస్() ఫంక్షన్ యొక్క విభిన్న ఉదాహరణలు
ట్యుటోరియల్‌లోని ఈ భాగంలో bless() ఫంక్షన్‌ని బహుళ మార్గాల్లో ఉపయోగాలు చూపబడ్డాయి.
ఉదాహరణ 1: సాధారణ తరగతి మరియు వస్తువును ఉపయోగించడం
ఈ ఉదాహరణలో, 'బుక్' అనే ప్యాకేజీలో క్లాస్ యొక్క కన్స్ట్రక్టర్ పద్ధతి వలె పనిచేసే సబ్‌ట్రౌటీన్ ఉంది. ఇక్కడ, Init() పద్ధతికి కాల్ చేసే సమయంలో అందించబడిన తరగతి పేరుతో వేరియబుల్స్‌ను రిలేట్ చేయడానికి “బ్లెస్” ఫంక్షన్ ఉపయోగించబడుతుంది.
#!/usr/bin/perl
కఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
#ప్యాకేజీని నిర్వచించండి
ప్యాకేజీ పుస్తకం ;
#నిర్మాణకర్తను నిర్వచించండి
Init కింద
{
#తరగతి పేరును ప్రారంభించండి
నా $className = మార్పు ;
#వేరియబుల్స్‌ను ప్రారంభించండి
నా $ వేరియబుల్స్ = {
'పుస్తకం పేరు' => మార్పు ,
'రచయిత పేరు' => మార్పు ,
'ప్రచురితమైన సంవత్సరం' => మార్పు ,
'ధర' => మార్పు
} ;
#రిఫరెన్స్‌ని రిఫరెన్స్‌తో సెట్ చేయండి
$వేరియబుల్స్‌ని ఆశీర్వదించండి , $className ;
#రిఫరెన్స్ వేరియబుల్‌ని తిరిగి ఇవ్వండి
తిరిగి $ వేరియబుల్స్ ;
}
#తరగతి వస్తువును సృష్టించండి
నా $bookObj = Init బుక్ ( 'లెర్నింగ్ పెర్ల్' , 'రాండల్ ఎల్. స్క్వార్ట్జ్' , 1993 , నాలుగు ఐదు ) ;
#క్లాస్ వేరియబుల్స్ విలువలను ప్రింట్ చేయండి
అంటున్నారు 'పుస్తకం వివరాలు:' ;
అంటున్నారు ' \n పుస్తకం పేరు: $bookObj->{'BookName'}' ;
అంటున్నారు 'రచయిత పేరు: $bookObj->{'AuthorName'}' ;
అంటున్నారు 'ప్రచురితమైన సంవత్సరం: $bookObj->{'Published Year'}' ;
అంటున్నారు 'ధర: \$ $bookObj->{'ధర'}' ;
అవుట్‌పుట్:
స్క్రిప్ట్‌ను అమలు చేసిన తర్వాత క్రింది అవుట్‌పుట్ కనిపిస్తుంది:
ఉదాహరణ 2: క్లాస్ మరియు ఆబ్జెక్ట్‌ని బహుళ పద్ధతులతో ఉపయోగించడం
ఈ ఉదాహరణలో, 'ఉత్పత్తులు' అనే ప్యాకేజీ రెండు పద్ధతులను కలిగి ఉంది. ఒక పద్ధతి Init() ఇది అవసరమైన వేరియబుల్స్‌ను ప్రారంభించేందుకు మరియు “బ్లెస్” ఫంక్షన్‌ని ఉపయోగించి క్లాస్ పేరుతో వేరియబుల్స్‌ను సూచించడానికి ఉపయోగించబడుతుంది. ఉత్పత్తి యొక్క తగ్గింపు ధరను లెక్కించడానికి గణన_ధర() అనే మరొక పద్ధతి ఉపయోగించబడుతుంది.
#!/usr/bin/perlకఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
#ప్యాకేజీని నిర్వచించండి
ప్యాకేజీ ఉత్పత్తి ;
నా $ వేరియబుల్స్ = { } ;
#నిర్మాణకర్తను నిర్వచించండి
Init కింద
{
#తరగతి పేరును ప్రారంభించండి
నా $className = మార్పు ;
#వేరియబుల్స్‌ను ప్రారంభించండి
$ వేరియబుల్స్ = {
'ఐడి' => మార్పు ,
'పేరు' => మార్పు ,
'ధర' => మార్పు
} ;
#రిఫరెన్స్‌ని రిఫరెన్స్‌తో సెట్ చేయండి
$వేరియబుల్స్‌ని ఆశీర్వదించండి , $className ;
#రిఫరెన్స్ వేరియబుల్‌ని తిరిగి ఇవ్వండి
తిరిగి $ వేరియబుల్స్ ;
}
డిస్కౌంట్ ధరను లెక్కించడానికి #డిక్లేర్ పద్ధతి
ఉప గణన_ధర
{
నా $డిస్కౌంట్_ధర = $వేరియబుల్స్- > { 'ధర' } - $వేరియబుల్స్- > { 'ధర' } * 0.1 ;
అంటున్నారు 'డిస్కౌంట్ ధర: \$ $discount_price' ;
}
#తరగతి వస్తువును సృష్టించండి
నా $proObj = Init ఉత్పత్తి ( '6745' , 'డెల్ మానిటర్' , యాభై ) ;
#క్లాస్ వేరియబుల్స్ విలువలను ప్రింట్ చేయండి
అంటున్నారు '10 తర్వాత ఉత్పత్తి సమాచారం \% తగ్గింపు: ' ;
అంటున్నారు ' \n Id: $proObj->{'Id'}' ;
అంటున్నారు 'పేరు: $proObj->{'Name'}' ;
అంటున్నారు 'అసలు ధర: \$ $proObj->{'ధర'}' ;
#ఆబ్జెక్ట్ పద్ధతిని కాల్ చేయండి
$proObj- > గణన_ధర ( ) ;
అవుట్‌పుట్:
స్క్రిప్ట్‌ను అమలు చేసిన తర్వాత క్రింది అవుట్‌పుట్ కనిపిస్తుంది:
ఉదాహరణ 3: మాడ్యూల్‌ని సృష్టించడం ద్వారా తరగతిని ఉపయోగించడం
ఈ ఉదాహరణలో, వినియోగదారు నిర్వచించిన పెర్ల్ మాడ్యూల్ 'Bless' ఫంక్షన్ ఉపయోగించబడే 'CalPower.pm' పేరుతో ఒక ప్రత్యేక ఫైల్‌లో సృష్టించబడుతుంది. కింది పెర్ల్ స్క్రిప్ట్‌తో ఈ ఫైల్‌ను సృష్టించండి. ఈ మాడ్యూల్ “x n “ ఇక్కడ “x” మరియు “n” విలువలు ఈ మాడ్యూల్ దిగుమతి చేయబడిన Perl స్క్రిప్ట్ నుండి అందించబడతాయి.
#!/usr/bin/perlకఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
#ప్యాకేజీ పేరును నిర్వచించండి
ప్యాకేజీ కాల్పవర్ ;
#నిర్మాణకర్తను నిర్వచించండి
Init కింద
{
నా $className = మార్పు ;
నా $var =
{
సంఖ్య => మార్పు ,
శక్తి => మార్పు
} ;
$varని ఆశీర్వదించండి , $className ;
తిరిగి $var ;
}
#పవర్ వాల్యూను లెక్కించే పద్ధతిని నిర్వచించండి
ఉప గణించు
{
నా $var = మార్పు ;
నా $ఫలితం = $var- > { 'సంఖ్య' } ;
కోసం ( నా $i = 1 ; $i < $var- > { 'శక్తి' } ; $i++ )
{
$ఫలితం = $var- > { 'సంఖ్య' } * $ఫలితం ;
}
తిరిగి $ఫలితం ;
}
వినియోగదారు నుండి తీసుకోబడిన ఇన్‌పుట్ విలువ ఆధారంగా పవర్‌ను లెక్కించడానికి “CalPower” మాడ్యూల్ దిగుమతి చేయబడిన కింది స్క్రిప్ట్‌తో Perl ఫైల్‌ను సృష్టించండి.
#!/usr/bin/perlకఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
కాల్పవర్ ఉపయోగించండి ;
#బేస్ వాల్యూ తీసుకోండి
ముద్రణ 'x విలువను నమోదు చేయండి:' ;
chomp ( నా $x = <> ) ;
#పవర్ వేల్ తీసుకోండి
ముద్రణ 'n విలువను నమోదు చేయండి:' ;
chomp ( నా $n = <> ) ;
#తరగతి వస్తువును సృష్టించండి
నా $Obj = కాల్పవర్ ప్రారంభించండి ( $x , $n ) ;
#గణించిన శక్తి విలువను ముద్రించండి
ముద్రణ '$x టు ది పవర్ $n అంటే' ;
$Obj చెప్పు- > లెక్కించు ( ) ;
అవుట్‌పుట్:
స్క్రిప్ట్‌ని అమలు చేసిన తర్వాత క్రింది అవుట్‌పుట్ కనిపిస్తుంది:
ముగింపు
పెర్ల్‌లోని “బ్లెస్” ఫంక్షన్ యొక్క ఉపయోగాలు ఈ ట్యుటోరియల్‌లో అదే పెర్ల్ ఫైల్‌లో ప్యాకేజీని సృష్టించడం మరియు వేరే ఫైల్‌లో మాడ్యూల్‌ను సృష్టించడం ద్వారా చూపబడ్డాయి.