پرل ماڈیولز کی مختلف مثالیں۔
بلٹ ان پرل ماڈیولز اور یوزر ڈیفائنڈ ماڈیول استعمال کرنے کے طریقے ٹیوٹوریل کے اس حصے میں دکھائے گئے ہیں۔
مثال 1: بلٹ ان ماڈیول کا استعمال
اس مثال میں، پرل کے تین بلٹ ان ماڈیولز کے استعمال دکھائے گئے ہیں۔ یہ 'سخت'، 'انتباہات'، اور '5.34.0' ہیں۔ 'سخت' ماڈیول کا استعمال مختلف قسم کی پابندیوں کو پرل اسکرپٹ لکھنے کے لیے کیا جاتا ہے۔ مثال کے طور پر، اگر یہ ماڈیول اسکرپٹ میں استعمال ہوتا ہے تو 'میرا' کلیدی لفظ کے بغیر کسی متغیر کا اعلان نہیں کیا جا سکتا۔ 'انتباہی' ماڈیول اسکرپٹ پر عمل کرنے کے بعد مختلف قسم کے انتباہی پیغامات کو ظاہر کرنے کے لیے استعمال کیا جاتا ہے جو کوڈر کو غلطی کو سمجھنے میں مدد کرتا ہے۔ '5.34.0' ماڈیول اسکرپٹ میں اس ماڈیول کی مختلف خصوصیات کو استعمال کرنے کے لیے استعمال کیا جاتا ہے۔ 'کہیں' فنکشن جو پیغامات کو نئی لائن کے ساتھ پرنٹ کرنے کے لیے استعمال کیا جاتا ہے اس ماڈیول کی خصوصیت ہے۔
#!/usr/bin/perl
# کوڈنگ کے لیے پابندی کو فعال کریں۔
سختی سے استعمال کریں ;
غلطی کے لیے #انتباہی پیغام ڈسپلے کریں۔
استعمال کریں انتباہات ;
# مختلف خدمات کو فعال کریں۔
5.34.0 استعمال کریں۔ ;
#'مائی' کلیدی لفظ کا استعمال 'سخت' ماڈیول کے لیے لازمی ہے۔
میری $زبان = 'پرل' ;
# 'کہو' خصوصیت کے استعمال کو فعال کریں۔
کہنا '$language پروگرامنگ سیکھیں۔' ;
آؤٹ پٹ:
اسکرپٹ پر عمل کرنے کے بعد درج ذیل آؤٹ پٹ ظاہر ہوتا ہے:
مثال 2: یوزر ڈیفائنڈ ماڈیول کا استعمال
پرل کے صارفین '.pm' ایکسٹینشن کے ساتھ فائل بنا کر کسی خاص مقصد کے لیے اپنا ماڈیول بنا سکتے ہیں۔ اس مثال میں، صارف کی وضاحت شدہ ماڈیول بنایا گیا ہے اور اسے دوسرے پرل اسکرپٹ میں 'استعمال' کلیدی لفظ کا استعمال کرتے ہوئے استعمال کیا جاتا ہے۔
یوزر ڈیفائنڈ ماڈیول بنائیں:
درج ذیل اسکرپٹ کے ساتھ 'Bonus.pm' کے نام سے ایک فائل بنائیں۔ یہاں، 'package' کلیدی لفظ اس بات کی وضاحت کے لیے استعمال ہوتا ہے کہ یہ ایک ماڈیول ہے۔ یہ ماڈیول ایک ذیلی روٹین پر مشتمل ہے جو تنخواہ اور فروخت کی رقم کی بنیاد پر ملازم کے بونس کا حساب لگاتا ہے۔ پرل اسکرپٹ سے دو دلیل کی قدریں پاس کی جاتی ہیں جس میں یہ ماڈیول استعمال ہوتا ہے۔ پہلی دلیل تنخواہ پر مشتمل ہے اور دوسری دلیل فروخت کی رقم پر مشتمل ہے۔ بونس سیلز کی رقم کا 15% ہے اگر تنخواہ 10000 سے زیادہ ہے۔ اگر تنخواہ 7000 سے زیادہ ہے تو بونس سیلز کی رقم کا 10% ہے۔ اگر تنخواہ 10000 سے کم ہے تو بونس سیلز کی رقم کا 5% ہے۔ '1؛' ماڈیول کے آخر میں درست واپسی کے لیے استعمال کیا جاتا ہے۔ دوسری صورت میں، ایک غلطی پرنٹ کی جاتی ہے.
بونس.pm
#!/usr/bin/perlسختی سے استعمال کریں ;
استعمال کریں انتباہات ;
5.34.0 استعمال کریں۔ ;
پیکج بونس ;
# بونس کا حساب لگانے کے لیے سب روٹین کا اعلان کریں۔
ذیلی حساب_بونس
{
# متغیرات کو شروع کریں۔
میری $ تنخواہ = $_ [ 0 ] ;
میری $sales_amount = $_ [ 1 ] ;
میرا $بونس = 0.0 ;
# بونس کا حساب لگائیں۔
اگر ( تنخواہ > 10000 )
{
$بونس = $sales_amount* 0.15 ;
}
elsif ( تنخواہ > 7000 )
{
$بونس = $sales_amount* 0.10 ;
}
اور
{
$بونس = $sales_amount* 0.05 ;
}
# حساب شدہ بونس واپس کریں۔
واپسی $بونس ;
}
1 ;
پرل اسکرپٹ میں ایک ماڈیول درآمد کریں:
درج ذیل اسکرپٹ کے ساتھ ایک پرل فائل بنائیں جو 'بونس' ماڈیول کو درآمد کرتی ہے جو اسکرپٹ میں تفویض کردہ تنخواہ اور فروخت کی رقم کی بنیاد پر ملازم کی بونس کی رقم کا حساب لگانے کے لیے پہلے بنایا گیا تھا۔
#!/usr/bin/perlسختی سے استعمال کریں ;
استعمال کریں انتباہات ;
5.34.0 استعمال کریں۔ ;
بونس کا استعمال کریں ;
# متغیرات کو شروع کریں۔
میرا $نام = 'میر صابر' ;
میری $ تنخواہ = 60000 ;
میری $sal_amount = 9700 ;
# ماڈیول سے سب روٹین کو کال کریں۔
میرا $بونس = بونس::calculate_bonus ( تنخواہ ، $sal_amount ) ;
میری $salary_with_bonus = $salary + $bonus ;
# سیلز کی بنیاد پر ملازمین کی معلومات کو پرنٹ کریں۔
کہنا 'ملازمین کی تفصیلات: \n ' ;
کہنا 'نام: $name' ;
کہنا 'تنخواہ: $salary' ;
کہنا 'تنخواہ (بونس کے ساتھ): $salary_with_bonus' ;
آؤٹ پٹ:
اسکرپٹ پر عمل کرنے کے بعد درج ذیل آؤٹ پٹ ظاہر ہوتا ہے۔ یہاں، '-I.' اسکرپٹ پر عمل کرنے کے وقت صارف کی طرف سے طے شدہ امپورٹڈ ماڈیول کا پتہ لگانے کے لیے آپشن کا استعمال کرنا ہوگا۔
مثال 3: 'ضرورت' کا استعمال کرتے ہوئے صارف کی وضاحت کردہ ماڈیول کا استعمال
'ضرورت' فنکشن پرل اسکرپٹ میں ماڈیولز کو درآمد کرنے کا ایک اور طریقہ ہے اور اسے اس مثال میں دکھایا گیا ہے۔ پہلے بنائے گئے 'بونس' ماڈیول کو 'ضرورت' فنکشن کا استعمال کرتے ہوئے اسکرپٹ میں درآمد کیا جاتا ہے۔ تنخواہ اور فروخت کی رقم کی قیمتیں اس اسکرپٹ میں صارف سے لی گئی ہیں۔ اسکرپٹ کا دوسرا حصہ پچھلی مثال سے ملتا جلتا ہے۔
#!/usr/bin/perlسختی سے استعمال کریں ;
استعمال کریں انتباہات ;
5.34.0 استعمال کریں۔ ;
بونس کی ضرورت ہے ;
# صارف سے ان پٹ لیں۔
کہنا 'ملازم کا نام درج کریں:' ;
چومپ ( میرا $نام = <> ) ;
کہنا 'تنخواہ درج کریں:' ;
چومپ ( میری $ تنخواہ = <> ) ;
کہنا 'فروخت کی رقم درج کریں:' ;
چومپ ( میری $sal_amount = <> ) ;
# ماڈیول سے سب روٹین کو کال کریں۔
میرا $بونس = بونس::calculate_bonus ( تنخواہ , $sal_amount ) ;
میری $salary_with_bonus = $salary + $bonus ;
# سیلز کی بنیاد پر ملازمین کی معلومات کو پرنٹ کریں۔
کہنا 'ملازمین کی تفصیلات: \n ' ;
کہنا 'نام: $name' ;
کہنا 'تنخواہ: $salary' ;
کہنا 'تنخواہ (بونس کے ساتھ): $salary_with_bonus' ;
آؤٹ پٹ:
اسکرپٹ پر عمل کرنے کے بعد درج ذیل آؤٹ پٹ ظاہر ہوتا ہے:
نتیجہ
پرل میں بلٹ ان اور یوزر ڈیفینڈ دونوں ماڈیولز کے استعمال کو اس ٹیوٹوریل میں سادہ مثالوں کا استعمال کرتے ہوئے دکھایا گیا ہے۔