דוגמאות שונות של מודולי פרל
שיטות השימוש במודולי Perl המובנים ובמודולים המוגדרים על ידי המשתמש מוצגות בחלק זה של המדריך.
דוגמה 1: שימוש במודול המובנה
בדוגמה זו מוצגים השימושים של שלושה מודולים מובנים של Perl. אלה הם 'קפדניים', 'אזהרות' ו-'5.34.0'. המודול ה'קפדני' משמש כדי לאפשר לסוגי ההגבלות השונים לכתוב את הסקריפטים של Perl. לדוגמה, לא ניתן להצהיר על משתנה ללא מילת המפתח 'שלי' אם מודול זה משמש בסקריפט. מודול 'אזהרות' משמש להצגת סוגי הודעות האזהרה השונות לאחר ביצוע הסקריפט שעוזר לקודן להבין את השגיאה. מודול '5.34.0' משמש לשימוש בתכונות השונות של מודול זה בסקריפט. הפונקציה 'אמר' המשמשת להדפסת ההודעות עם שורה חדשה היא התכונה של מודול זה.
#!/usr/bin/perl
#הפעל הגבלה עבור קידוד
להשתמש קפדני ;
#הצג הודעת אזהרה לשגיאה
להשתמש אזהרות ;
#הפעל שירותים שונים
השתמש ב-5.34.0 ;
#השימוש במילת המפתח 'שלי' הוא חובה עבור מודול 'קפדני'
$language שלי = 'פרל' ;
# אפשר את השימוש בתכונת 'אמר'
אמר 'למד תכנות $language.' ;
תְפוּקָה:
הפלט הבא מופיע לאחר ביצוע הסקריפט:
דוגמה 2: שימוש במודול המוגדר על ידי משתמש
משתמשי Perl יכולים ליצור את המודול שלהם למטרה מסוימת על ידי יצירת קובץ עם סיומת '.pm'. בדוגמה זו נוצר מודול המוגדר על ידי המשתמש והוא משמש בסקריפט אחר של Perl באמצעות מילת המפתח 'שימוש'.
צור מודול בהגדרת משתמש:
צור קובץ בשם 'Bonus.pm' עם הסקריפט הבא. כאן, מילת המפתח 'חבילה' משמשת כדי להגדיר שזה מודול. מודול זה מכיל תת שגרה המחשבת את הבונוס של עובד על סמך השכר וסכום המכירה. שני ערכי ארגומנטים מועברים מהסקריפט של Perl שבו נעשה שימוש במודול זה. הטיעון הראשון מכיל את השכר והטיעון השני מכיל את סכום המכירות. הבונוס הוא 15% מסכום המכירה אם השכר הוא יותר מ-10000. הבונוס הוא 10% מסכום המכירה אם השכר הוא יותר מ-7000. הבונוס הוא 5% מסכום המכירה אם השכר נמוך מ-10000 ה-'1;' משמש בסוף המודול להחזרת true. אחרת, מודפסת שגיאה.
בונוס.pm
#!/usr/bin/perlלהשתמש קפדני ;
להשתמש אזהרות ;
השתמש ב-5.34.0 ;
חבילה בונוס ;
#הכרז על תת שגרה לחישוב בונוס
sub calculate_bonus
{
# אתחול המשתנים
המשכורת שלי ב$ = $_ [ 0 ] ;
$sales_amount שלי = $_ [ 1 ] ;
בונוס הדולר שלי = 0.0 ;
#חשב בונוס
אם ( $משכורת > 10000 )
{
בונוס $ = $sales_amount* 0.15 ;
}
אלסיף ( $משכורת > 7000 )
{
בונוס $ = $sales_amount* 0.10 ;
}
אַחֵר
{
בונוס $ = $sales_amount* 0.05 ;
}
#החזר את הבונוס המחושב
לַחֲזוֹר בונוס $ ;
}
1 ;
ייבוא מודול בסקריפט Perl:
צור קובץ Perl עם הסקריפט הבא שמייבא את מודול ה'בונוס' שנוצר קודם לכן כדי לחשב את סכום הבונוס של עובד בהתבסס על סכום השכר והמכירות המוקצים בסקריפט.
#!/usr/bin/perlלהשתמש קפדני ;
להשתמש אזהרות ;
השתמש ב-5.34.0 ;
השתמש בבונוס ;
#אתחול משתנים
שם ה$ שלי = 'מיר סביר' ;
המשכורת $ שלי = 60000 ;
$sal_amount שלי = 9700 ;
#תת שגרת שיחות מהמודול
בונוס הדולר שלי = בונוס::calculate_bonus ( $משכורת , $sal_amount ) ;
$משכורת_עם_בונוס שלי = $משכורת +$בונוס ;
#הדפס את פרטי העובד על סמך מכירות
אמר 'פרטי עובד: \n ' ;
אמר 'שם: $name' ;
אמר 'שכר: $שכר' ;
אמר 'שכר (עם בונוס): $salary_with_bonus' ;
תְפוּקָה:
הפלט הבא מופיע לאחר ביצוע הסקריפט. הנה, ה'-אני'. יש להשתמש באפשרות בזמן הפעלת הסקריפט כדי לגלות את המודול המיובא המוגדר על ידי המשתמש:
דוגמה 3: שימוש במודול המוגדר על ידי המשתמש באמצעות 'דרוש'
הפונקציה 'דרוש' היא דרך נוספת לייבא את המודולים בסקריפט Perl והיא מוצגת בדוגמה זו. מודול ה'בונוס' שנוצר בעבר מיובא לתוך הסקריפט באמצעות הפונקציה 'דרוש'. ערכי השכר וסכום המכירות נלקחים מהמשתמש בסקריפט זה. החלק השני של התסריט דומה לדוגמא הקודמת.
#!/usr/bin/perlלהשתמש קפדני ;
להשתמש אזהרות ;
השתמש ב-5.34.0 ;
דורש בונוס ;
#קבל קלט מהמשתמש
אמר 'הזן את שם העובד:' ;
chomp ( שם ה$ שלי = <> ) ;
אמר 'הכנס את השכר:' ;
chomp ( המשכורת שלי ב$ = <> ) ;
אמר 'הזן את סכום המכירה:' ;
chomp ( $sal_amount שלי = <> ) ;
#תת שגרת שיחות מהמודול
בונוס הדולר שלי = בונוס::calculate_bonus ( $משכורת , $sal_amount ) ;
$משכורת_עם_בונוס שלי = $משכורת +$בונוס ;
#הדפס את פרטי העובד על סמך מכירות
אמר 'פרטי עובד: \n ' ;
אמר 'שם: $name' ;
אמר 'שכר: $שכר' ;
אמר 'שכר (עם בונוס): $salary_with_bonus' ;
תְפוּקָה:
הפלט הבא מופיע לאחר ביצוע הסקריפט:
סיכום
השימושים של המודולים המובנים והן המוגדרים על ידי המשתמש ב- Perl מוצגים במדריך זה באמצעות דוגמאות פשוטות.