பெர்ல் தொகுதிகளின் வெவ்வேறு எடுத்துக்காட்டுகள்
உள்ளமைக்கப்பட்ட பெர்ல் தொகுதிகள் மற்றும் பயனர் வரையறுக்கப்பட்ட தொகுதிகளைப் பயன்படுத்தும் முறைகள் டுடோரியலின் இந்தப் பகுதியில் காட்டப்பட்டுள்ளன.
எடுத்துக்காட்டு 1: உள்ளமைக்கப்பட்ட தொகுதியைப் பயன்படுத்துதல்
இந்த எடுத்துக்காட்டில், பெர்லின் மூன்று உள்ளமைக்கப்பட்ட தொகுதிகளின் பயன்பாடுகள் காட்டப்பட்டுள்ளன. இவை 'கண்டிப்பான', 'எச்சரிக்கைகள்' மற்றும் '5.34.0'. பெர்ல் ஸ்கிரிப்ட்களை எழுதுவதற்கு பல்வேறு வகையான கட்டுப்பாடுகளை செயல்படுத்த 'கண்டிப்பான' தொகுதி பயன்படுத்தப்படுகிறது. எடுத்துக்காட்டாக, இந்த தொகுதி ஸ்கிரிப்ட்டில் பயன்படுத்தப்பட்டால், 'மை' முக்கிய வார்த்தை இல்லாமல் எந்த மாறியையும் அறிவிக்க முடியாது. 'எச்சரிக்கைகள்' தொகுதியானது ஸ்கிரிப்டை இயக்கிய பிறகு பல்வேறு வகையான எச்சரிக்கை செய்திகளைக் காண்பிக்கப் பயன்படுகிறது, இது குறியீட்டாளர் பிழையைப் புரிந்துகொள்ள உதவுகிறது. ஸ்கிரிப்ட்டில் இந்த தொகுதியின் வெவ்வேறு அம்சங்களைப் பயன்படுத்த “5.34.0” தொகுதி பயன்படுத்தப்படுகிறது. புதிய வரியுடன் செய்திகளை அச்சிடப் பயன்படும் 'சொல்' செயல்பாடு இந்த தொகுதியின் அம்சமாகும்.
#!/usr/bin/perl
#குறியீட்டுக்கான கட்டுப்பாட்டை இயக்கவும்
கண்டிப்பாக பயன்படுத்தவும் ;
#பிழைக்கான எச்சரிக்கை செய்தியைக் காட்டு
பயன்படுத்த எச்சரிக்கைகள் ;
#பல்வேறு சேவைகளை இயக்கவும்
5.34.0 ஐப் பயன்படுத்தவும் ;
#கடுமையான தொகுதிக்கு 'மை' முக்கிய சொல்லைப் பயன்படுத்துவது கட்டாயமாகும்
எனது $மொழி = 'பெர்ல்' ;
#'சொல்' அம்சத்தைப் பயன்படுத்துவதை இயக்கவும்
சொல் '$language நிரலாக்கத்தைக் கற்றுக்கொள்ளுங்கள்.' ;
வெளியீடு:
ஸ்கிரிப்டை இயக்கிய பின் பின்வரும் வெளியீடு தோன்றும்:
எடுத்துக்காட்டு 2: பயனர் வரையறுக்கப்பட்ட தொகுதியைப் பயன்படுத்துதல்
'.pm' நீட்டிப்புடன் ஒரு கோப்பை உருவாக்குவதன் மூலம் Perl பயனர்கள் ஒரு குறிப்பிட்ட நோக்கத்திற்காக தங்கள் தொகுதியை உருவாக்கலாம். இந்த எடுத்துக்காட்டில், ஒரு பயனர் வரையறுக்கப்பட்ட தொகுதி உருவாக்கப்பட்டு, அது 'பயன்படுத்து' முக்கிய சொல்லைப் பயன்படுத்தி மற்றொரு பெர்ல் ஸ்கிரிப்ட்டில் பயன்படுத்தப்படுகிறது.
பயனர் வரையறுக்கப்பட்ட தொகுதியை உருவாக்கவும்:
பின்வரும் ஸ்கிரிப்ட் மூலம் “Bonus.pm” என்ற கோப்பை உருவாக்கவும். இங்கே, 'தொகுப்பு' முக்கிய வார்த்தை இது ஒரு தொகுதி என்பதை வரையறுக்க பயன்படுத்தப்படுகிறது. சம்பளம் மற்றும் விற்பனைத் தொகையின் அடிப்படையில் ஒரு பணியாளரின் போனஸைக் கணக்கிடும் சப்ரூட்டின் இந்த தொகுதியில் உள்ளது. இந்த தொகுதி பயன்படுத்தப்படும் பெர்ல் ஸ்கிரிப்ட்டிலிருந்து இரண்டு வாத மதிப்புகள் அனுப்பப்படுகின்றன. முதல் வாதத்தில் சம்பளம் மற்றும் இரண்டாவது வாதத்தில் விற்பனைத் தொகை உள்ளது. போனஸ் 10000க்கு மேல் இருந்தால் விற்பனைத் தொகையில் 15%. போனஸ் 7000க்கு மேல் இருந்தால் விற்பனைத் தொகையில் 10%. போனஸ் 10000க்குக் குறைவாக இருந்தால் விற்பனைத் தொகையில் 5%. '1;' உண்மையாகத் திரும்பத் தொகுதியின் முடிவில் பயன்படுத்தப்படுகிறது. இல்லையெனில், ஒரு பிழை அச்சிடப்படுகிறது.
போனஸ்.pm
#!/usr/bin/perlகண்டிப்பாக பயன்படுத்தவும் ;
பயன்படுத்த எச்சரிக்கைகள் ;
5.34.0 ஐப் பயன்படுத்தவும் ;
தொகுப்பு போனஸ் ;
போனஸைக் கணக்கிட சப்ரூட்டினை அறிவிக்கவும்
துணை கணக்கீடு_போனஸ்
{
# மாறிகளை துவக்கவும்
எனது $ சம்பளம் = $_ [ 0 ] ;
எனது $விற்பனை_தொகை = $_ [ 1 ] ;
எனது $போனஸ் = 0.0 ;
#போனஸைக் கணக்கிடுங்கள்
என்றால் ( $சம்பளம் > 10000 )
{
$போனஸ் = $விற்பனை_தொகை* 0.15 ;
}
எல்சிஃப் ( $சம்பளம் > 7000 )
{
$போனஸ் = $விற்பனை_தொகை* 0.10 ;
}
வேறு
{
$போனஸ் = $விற்பனை_தொகை* 0.05 ;
}
#கணக்கிடப்பட்ட போனஸைத் திருப்பித் தரவும்
திரும்ப $போனஸ் ;
}
1 ;
பெர்ல் ஸ்கிரிப்ட்டில் ஒரு தொகுதியை இறக்குமதி செய்யவும்:
ஸ்கிரிப்ட்டில் ஒதுக்கப்பட்டுள்ள சம்பளம் மற்றும் விற்பனைத் தொகையின் அடிப்படையில் ஒரு பணியாளரின் போனஸ் தொகையைக் கணக்கிடுவதற்கு முன்னர் உருவாக்கப்பட்ட “போனஸ்” தொகுதியை இறக்குமதி செய்யும் பின்வரும் ஸ்கிரிப்ட் மூலம் ஒரு பெர்ல் கோப்பை உருவாக்கவும்.
#!/usr/bin/perlகண்டிப்பாக பயன்படுத்தவும் ;
பயன்படுத்த எச்சரிக்கைகள் ;
5.34.0 ஐப் பயன்படுத்தவும் ;
போனஸ் பயன்படுத்தவும் ;
# மாறிகளை துவக்கவும்
எனது $பெயர் = 'மிர் சபீர்' ;
எனது $ சம்பளம் = 60000 ;
எனது $சல்_தொகை = 9700 ;
#தொகுதியிலிருந்து சப்ரூட்டினை அழைக்கவும்
எனது $போனஸ் = போனஸ்::calculate_bonus ( $சம்பளம் , $சல்_தொகை ) ;
எனது $salary_with_bonus = $சம்பளம் + $போனஸ் ;
# விற்பனையின் அடிப்படையில் பணியாளர் தகவலை அச்சிடவும்
சொல் 'பணியாளர் விவரங்கள்: \n ' ;
சொல் 'பெயர்: $பெயர்' ;
சொல் 'சம்பளம்: $சம்பளம்' ;
சொல் 'சம்பளம்(போனஸுடன்): $salary_with_bonus' ;
வெளியீடு:
ஸ்கிரிப்டை இயக்கிய பின் பின்வரும் வெளியீடு தோன்றும். இங்கே, '-நான்.' பயனர் வரையறுத்த இறக்குமதி செய்யப்பட்ட தொகுதியைக் கண்டறிய ஸ்கிரிப்டை இயக்கும் நேரத்தில் இந்த விருப்பத்தைப் பயன்படுத்த வேண்டும்:
எடுத்துக்காட்டு 3: 'தேவை' ஐப் பயன்படுத்தி பயனர் வரையறுக்கப்பட்ட தொகுதியைப் பயன்படுத்துதல்
'தேவை' செயல்பாடு என்பது பெர்ல் ஸ்கிரிப்டில் உள்ள தொகுதிகளை இறக்குமதி செய்வதற்கான மற்றொரு வழியாகும், இது இந்த எடுத்துக்காட்டில் காட்டப்பட்டுள்ளது. முன்பு உருவாக்கப்பட்ட 'போனஸ்' தொகுதி 'தேவை' செயல்பாட்டைப் பயன்படுத்தி ஸ்கிரிப்ட்டில் இறக்குமதி செய்யப்படுகிறது. சம்பளம் மற்றும் விற்பனைத் தொகை மதிப்புகள் இந்த ஸ்கிரிப்ட்டில் பயனரிடமிருந்து எடுக்கப்படுகின்றன. ஸ்கிரிப்ட்டின் மற்ற பகுதி முந்தைய உதாரணத்தைப் போன்றது.
#!/usr/bin/perlகண்டிப்பாக பயன்படுத்தவும் ;
பயன்படுத்த எச்சரிக்கைகள் ;
5.34.0 ஐப் பயன்படுத்தவும் ;
போனஸ் தேவை ;
#பயனரிடமிருந்து உள்ளீட்டைப் பெறுங்கள்
சொல் 'பணியாளர் பெயரை உள்ளிடவும்:' ;
chomp ( எனது $பெயர் = <> ) ;
சொல் 'சம்பளத்தை உள்ளிடவும்:' ;
chomp ( எனது $ சம்பளம் = <> ) ;
சொல் 'விற்பனைத் தொகையை உள்ளிடவும்:' ;
chomp ( எனது $சல்_தொகை = <> ) ;
#தொகுதியிலிருந்து சப்ரூட்டினை அழைக்கவும்
எனது $போனஸ் = போனஸ்::calculate_bonus ( $சம்பளம் , $சல்_தொகை ) ;
எனது $salary_with_bonus = $சம்பளம் + $போனஸ் ;
# விற்பனையின் அடிப்படையில் பணியாளர் தகவலை அச்சிடவும்
சொல் 'பணியாளர் விவரங்கள்: \n ' ;
சொல் 'பெயர்: $பெயர்' ;
சொல் 'சம்பளம்: $சம்பளம்' ;
சொல் 'சம்பளம்(போனஸுடன்): $salary_with_bonus' ;
வெளியீடு:
ஸ்கிரிப்டை இயக்கிய பின் பின்வரும் வெளியீடு தோன்றும்:
முடிவுரை
பெர்லில் உள்ளமைக்கப்பட்ட மற்றும் பயனர் வரையறுக்கப்பட்ட தொகுதிகள் இரண்டின் பயன்பாடுகளும் எளிய எடுத்துக்காட்டுகளைப் பயன்படுத்தி இந்த டுடோரியலில் காட்டப்பட்டுள்ளன.