தொடரியல்:
'bless' செயல்பாட்டின் தொடரியல் பின்வருவனவற்றில் கொடுக்கப்பட்டுள்ளது. இந்த செயல்பாட்டை ஒரு வாதம் அல்லது இரண்டு வாதங்களுடன் பயன்படுத்தலாம். பொதுவாக, இந்த செயல்பாடு இரண்டு வாதங்களுடன் பயன்படுத்தப்படுகிறது, அங்கு முதல் வாதம் குறிப்பு மாறி மற்றும் இரண்டாவது வாதம் முதல் வாதத்தால் குறிப்பிடப்படும் வகுப்பு பெயர். இது ஒரு வாத மதிப்புடன் பயன்படுத்தப்படும் போது, குறிப்பு மாறி தற்போதைய தொகுப்பைக் குறிக்கிறது.
ஆசீர்வதியுங்கள் ref
அல்லது
ஆசீர்வதியுங்கள் ref , வகுப்பு பெயர்
Bless() செயல்பாட்டின் வெவ்வேறு எடுத்துக்காட்டுகள்
பல வழிகளில் bless() செயல்பாட்டின் பயன்பாடுகள் டுடோரியலின் இந்தப் பகுதியில் காட்டப்பட்டுள்ளன.
எடுத்துக்காட்டு 1: எளிய வகுப்பு மற்றும் பொருளைப் பயன்படுத்துதல்
இந்த எடுத்துக்காட்டில், 'புத்தகம்' என்று பெயரிடப்பட்ட தொகுப்பில், வகுப்பின் கட்டமைப்பாளர் முறையைப் போன்று செயல்படும் சப்ரூட்டீன் உள்ளது. இங்கே, Init() முறையை அழைக்கும் போது வழங்கப்படும் வர்க்கப் பெயருடன் மாறிகளை தொடர்புபடுத்த 'bless' செயல்பாடு பயன்படுத்தப்படுகிறது.
#!/usr/bin/perl
கண்டிப்பாக பயன்படுத்தவும் ;
பயன்படுத்த எச்சரிக்கைகள் ;
5.34.0 ஐப் பயன்படுத்தவும் ;
#தொகுப்பை வரையறுக்கவும்
தொகுப்பு புத்தகம் ;
#கட்டமைப்பாளரை வரையறுக்கவும்
Init கீழ்
{
#வகுப்பின் பெயரை துவக்கவும்
எனது $className = மாற்றம் ;
# மாறிகளை துவக்கவும்
எனது $ மாறிகள் = {
'புத்தகப் பெயர்' => மாற்றம் ,
'ஆசிரியர் பெயர்' => மாற்றம் ,
'வெளியிட்ட ஆண்டு' => மாற்றம் ,
'விலை' => மாற்றம்
} ;
#குறிப்பை குறிப்புடன் அமைக்கவும்
$ மாறிகளை ஆசீர்வதிக்கவும் , $className ;
#குறிப்பு மாறியை திரும்பவும்
திரும்ப $ மாறிகள் ;
}
#வகுப்பின் பொருளை உருவாக்கவும்
எனது $bookObj = Init புத்தகம் ( 'கற்றல் பெர்ல்' , 'ராண்டல் எல். ஸ்வார்ட்ஸ்' , 1993 , நான்கு. ஐந்து ) ;
#வகுப்பு மாறிகளின் மதிப்புகளை அச்சிடவும்
சொல் 'புத்தக விவரங்கள்:' ;
சொல் ' \n புத்தகத்தின் பெயர்: $bookObj->{'BookName'}' ;
சொல் 'ஆசிரியர் பெயர்: $bookObj->{'AuthorName'}' ;
சொல் 'வெளியிடப்பட்ட ஆண்டு: $bookObj->{'PublishedYear'}' ;
சொல் 'விலை: \$ $bookObj->{'விலை'}' ;
வெளியீடு:
ஸ்கிரிப்டை இயக்கிய பின் பின்வரும் வெளியீடு தோன்றும்:
எடுத்துக்காட்டு 2: வகுப்பு மற்றும் பொருளைப் பல முறைகளுடன் பயன்படுத்துதல்
இந்த எடுத்துக்காட்டில், 'தயாரிப்புகள்' என்ற தொகுப்பில் இரண்டு முறைகள் உள்ளன. ஒரு முறை Init() ஆகும், இது தேவையான மாறிகளை துவக்கவும், 'bless' செயல்பாட்டைப் பயன்படுத்தி வர்க்கப் பெயருடன் மாறிகளைக் குறிப்பிடவும் பயன்படுகிறது. மற்றொரு முறையானது, பொருட்படுத்தும் விலையைக் கணக்கிடுவதற்கு, கணக்கிட_விலை() பயன்படுத்தப்படுகிறது.
#!/usr/bin/perlகண்டிப்பாக பயன்படுத்தவும் ;
பயன்படுத்த எச்சரிக்கைகள் ;
5.34.0 ஐப் பயன்படுத்தவும் ;
#தொகுப்பை வரையறுக்கவும்
தொகுப்பு தயாரிப்பு ;
எனது $ மாறிகள் = { } ;
#கட்டமைப்பாளரை வரையறுக்கவும்
Init கீழ்
{
#வகுப்பின் பெயரை துவக்கவும்
எனது $className = மாற்றம் ;
# மாறிகளை துவக்கவும்
$ மாறிகள் = {
'ஐடி' => மாற்றம் ,
'பெயர்' => மாற்றம் ,
'விலை' => மாற்றம்
} ;
#குறிப்பை குறிப்புடன் அமைக்கவும்
$ மாறிகளை ஆசீர்வதிக்கவும் , $className ;
#குறிப்பு மாறியை திரும்பவும்
திரும்ப $ மாறிகள் ;
}
#தள்ளுபடி விலையை கணக்கிடுவதற்கான முறையை அறிவிக்கவும்
துணை கணக்கீடு_விலை
{
எனது $discount_price = $ மாறிகள்- > { 'விலை' } - $ மாறிகள்- > { 'விலை' } * 0.1 ;
சொல் 'தள்ளுபடி விலை: \$ $discount_price' ;
}
#வகுப்பின் பொருளை உருவாக்கவும்
எனது $proObj = Init தயாரிப்பு ( '6745' , 'டெல் மானிட்டர்' , ஐம்பது ) ;
#வகுப்பு மாறிகளின் மதிப்புகளை அச்சிடவும்
சொல் '10 க்குப் பிறகு தயாரிப்பு தகவல் \% தள்ளுபடி: ' ;
சொல் ' \n ஐடி: $proObj->{'Id'}' ;
சொல் 'பெயர்: $proObj->{'Name'}' ;
சொல் 'உண்மையான விலை: \$ $proObj->{'விலை'}' ;
# பொருள் முறையை அழைக்கவும்
$proObj- > கணக்கிட_விலை ( ) ;
வெளியீடு:
ஸ்கிரிப்டை இயக்கிய பின் பின்வரும் வெளியீடு தோன்றும்:
எடுத்துக்காட்டு 3: ஒரு தொகுதியை உருவாக்குவதன் மூலம் வகுப்பைப் பயன்படுத்துதல்
இந்த எடுத்துக்காட்டில், பயனரால் வரையறுக்கப்பட்ட பெர்ல் தொகுதி 'CalPower.pm' என்ற தனி கோப்பில் உருவாக்கப்படுகிறது, அங்கு 'bless' செயல்பாடு பயன்படுத்தப்படுகிறது. பின்வரும் பெர்ல் ஸ்கிரிப்ட் மூலம் இந்தக் கோப்பை உருவாக்கவும். இந்த தொகுதி 'x' ஐ கணக்கிடுகிறது n இந்த தொகுதி இறக்குமதி செய்யப்பட்ட பெர்ல் ஸ்கிரிப்ட்டிலிருந்து “x” மற்றும் “n” மதிப்புகள் வழங்கப்படுகின்றன.
#!/usr/bin/perlகண்டிப்பாக பயன்படுத்தவும் ;
பயன்படுத்த எச்சரிக்கைகள் ;
5.34.0 ஐப் பயன்படுத்தவும் ;
#தொகுப்பின் பெயரை வரையறுக்கவும்
தொகுப்பு CalPower ;
#கட்டமைப்பாளரை வரையறுக்கவும்
Init கீழ்
{
எனது $className = மாற்றம் ;
என் $var =
{
எண் => மாற்றம் ,
சக்தி => மாற்றம்
} ;
$var ஆசீர்வதியுங்கள் , $className ;
திரும்ப $var ;
}
#சக்தி மதிப்பைக் கணக்கிடுவதற்கான முறையை வரையறுக்கவும்
துணை கணக்கீடு
{
என் $var = மாற்றம் ;
எனது $ முடிவு = $var- > { 'எண்' } ;
க்கான ( என் $i = 1 ; $i < $var- > { 'சக்தி' } ; $i++ )
{
$ முடிவு = $var- > { 'எண்' } * $ முடிவு ;
}
திரும்ப $ முடிவு ;
}
பயனரிடமிருந்து எடுக்கப்பட்ட உள்ளீட்டு மதிப்பின் அடிப்படையில் சக்தியைக் கணக்கிடுவதற்கு 'CalPower' தொகுதி இறக்குமதி செய்யப்படும் பின்வரும் ஸ்கிரிப்ட் மூலம் பெர்ல் கோப்பை உருவாக்கவும்.
#!/usr/bin/perlகண்டிப்பாக பயன்படுத்தவும் ;
பயன்படுத்த எச்சரிக்கைகள் ;
5.34.0 ஐப் பயன்படுத்தவும் ;
CalPower ஐப் பயன்படுத்தவும் ;
#அடிப்படை மதிப்பை எடுத்துக் கொள்ளுங்கள்
அச்சு 'x இன் மதிப்பை உள்ளிடவும்:' ;
chomp ( என் $x = <> ) ;
#பவர் வேலை எடுத்துக் கொள்ளுங்கள்
அச்சு 'n இன் மதிப்பை உள்ளிடவும்:' ;
chomp ( என் $n = <> ) ;
#வகுப்பின் பொருளை உருவாக்கவும்
எனது $Obj = கால்பவர் துவக்கவும் ( $x , $n ) ;
# கணக்கிடப்பட்ட சக்தி மதிப்பை அச்சிடவும்
அச்சு '$x க்கு $n என்பது' ;
$Obj- என்று சொல்லுங்கள்- > கணக்கிடு ( ) ;
வெளியீடு:
ஸ்கிரிப்டை இயக்கிய பின் பின்வரும் வெளியீடு தோன்றும்:
முடிவுரை
Perl இல் 'bless' செயல்பாட்டின் பயன்பாடுகள் இந்த டுடோரியலில் அதே Perl கோப்பில் ஒரு தொகுப்பை உருவாக்கி வேறு கோப்பில் ஒரு தொகுதியை உருவாக்குவதன் மூலம் காட்டப்பட்டுள்ளது.