أمثلة مختلفة لوحدات بيرل
يتم عرض طرق استخدام وحدات Perl المضمنة والوحدات النمطية المعرفة في هذا الجزء من البرنامج التعليمي.
المثال 1: استخدام الوحدة المدمجة
في هذا المثال، يتم عرض استخدامات ثلاث وحدات مدمجة في لغة Perl. هذه هي 'صارمة' و'تحذيرات' و'5.34.0'. تُستخدم الوحدة 'الصارمة' لتمكين الأنواع المختلفة من القيود لكتابة نصوص Perl النصية. على سبيل المثال، لا يمكن الإعلان عن أي متغير بدون الكلمة الأساسية 'my' إذا تم استخدام هذه الوحدة في البرنامج النصي. يتم استخدام وحدة 'التحذيرات' لعرض الأنواع المختلفة من رسائل التحذير بعد تنفيذ البرنامج النصي الذي يساعد المبرمج على فهم الخطأ. يتم استخدام الوحدة '5.34.0' لاستخدام الميزات المختلفة لهذه الوحدة في البرنامج النصي. إن وظيفة 'say' المستخدمة لطباعة الرسائل بالسطر الجديد هي إحدى ميزات هذه الوحدة.
#!/usr/bin/Perl
# تمكين تقييد الترميز
استخدام صارم ;
# عرض رسالة تحذيرية للخطأ
يستخدم تحذيرات ;
# تمكين الخدمات المختلفة
استخدم 5.34.0 ;
# يعد استخدام الكلمة الرئيسية 'my' إلزاميًا للوحدة 'الصارمة'.
لغتي $ = 'بيرل' ;
# تمكين استخدام ميزة 'القول'.
يقول 'تعلم برمجة لغة $.' ;
انتاج:
يظهر الإخراج التالي بعد تنفيذ البرنامج النصي:
المثال 2: استخدام الوحدة المعرفة من قبل المستخدم
يمكن لمستخدمي Perl إنشاء الوحدة الخاصة بهم لغرض معين عن طريق إنشاء ملف بامتداد '.pm'. في هذا المثال، يتم إنشاء وحدة نمطية معرفة من قبل المستخدم ويتم استخدامها في برنامج Perl نصي آخر باستخدام الكلمة الأساسية 'use'.
إنشاء وحدة محددة من قبل المستخدم:
قم بإنشاء ملف باسم 'Bonus.pm' باستخدام البرنامج النصي التالي. هنا، يتم استخدام الكلمة الأساسية 'package' لتحديد أنها وحدة نمطية. تحتوي هذه الوحدة على روتين فرعي يقوم بحساب مكافأة الموظف بناءً على الراتب ومبلغ المبيعات. يتم تمرير قيمتين للوسيطتين من البرنامج النصي Perl الذي يتم استخدام هذه الوحدة فيه. تحتوي الوسيطة الأولى على الراتب وتحتوي الوسيطة الثانية على مبلغ المبيعات. المكافأة 15% من مبلغ المبيعات إذا كان الراتب أكثر من 10000. المكافأة 10% من مبلغ المبيعات إذا كان الراتب أكثر من 7000. المكافأة 5% من مبلغ المبيعات إذا كان الراتب أقل من 10000 '1؛' يتم استخدامه في نهاية الوحدة لإرجاع صحيح. وإلا، فسيتم طباعة خطأ.
مكافأة. مساء
#!/usr/bin/Perlاستخدام صارم ;
يستخدم تحذيرات ;
استخدم 5.34.0 ;
مكافأة الحزمة ;
# أعلن روتين فرعي لحساب المكافأة
حساب المكافأة الفرعية
{
# تهيئة المتغيرات
راتبي $ = $_ [ 0 ] ;
مبلغ مبيعاتي $ = $_ [ 1 ] ;
مكافأتي $ = 0.0 ;
#احسب المكافأة
لو ( $ الراتب > 10000 )
{
$مكافأة = $sales_amount* 0.15 ;
}
elsif ( $ الراتب > 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 ) ;
حسابي $salary_with_bonus = $الراتب + $مكافأة ;
#طباعة معلومات الموظف بناء على المبيعات
يقول 'تفاصيل الموظف: \ن ' ;
يقول 'الاسم: اسم $' ;
يقول 'الراتب: الراتب $' ;
يقول 'الراتب (مع المكافأة): $salary_with_bonus' ;
انتاج:
يظهر الإخراج التالي بعد تنفيذ البرنامج النصي. هنا '-أنا'. يجب استخدام الخيار في وقت تنفيذ البرنامج النصي لمعرفة الوحدة النمطية المستوردة المعرفة من قبل المستخدم:
المثال 3: استخدام الوحدة المعرفة من قبل المستخدم باستخدام 'Require'
تعتبر وظيفة 'require' طريقة أخرى لاستيراد الوحدات النمطية في البرنامج النصي Perl وهي موضحة في هذا المثال. يتم استيراد وحدة 'Bonus' التي تم إنشاؤها مسبقًا إلى البرنامج النصي باستخدام وظيفة 'require'. يتم أخذ قيم الراتب ومبلغ المبيعات من المستخدم في هذا البرنامج النصي. الجزء الآخر من البرنامج النصي مشابه للمثال السابق.
#!/usr/bin/Perlاستخدام صارم ;
يستخدم تحذيرات ;
استخدم 5.34.0 ;
تتطلب مكافأة ;
# خذ المدخلات من المستخدم
يقول 'أدخل اسم الموظف:' ;
أقضم بصوت عالي ( اسمي $ = <> ) ;
يقول 'أدخل الراتب:' ;
أقضم بصوت عالي ( راتبي $ = <> ) ;
يقول 'أدخل مبلغ المبيعات:' ;
أقضم بصوت عالي ( $sal_amount الخاص بي = <> ) ;
# استدعاء روتين فرعي من الوحدة النمطية
مكافأتي $ = المكافأة::calculate_bonus ( $ الراتب , $sal_amount ) ;
حسابي $salary_with_bonus = $الراتب + $مكافأة ;
#طباعة معلومات الموظف بناء على المبيعات
يقول 'تفاصيل الموظف: \ن ' ;
يقول 'الاسم: اسم $' ;
يقول 'الراتب: الراتب $' ;
يقول 'الراتب (مع المكافأة): $salary_with_bonus' ;
انتاج:
يظهر الإخراج التالي بعد تنفيذ البرنامج النصي:
خاتمة
يتم عرض استخدامات الوحدات المضمنة والمحددة من قبل المستخدم في Perl في هذا البرنامج التعليمي باستخدام أمثلة بسيطة.