পার্ল মডিউলের বিভিন্ন উদাহরণ
অন্তর্নির্মিত পার্ল মডিউল এবং ব্যবহারকারী-সংজ্ঞায়িত মডিউল ব্যবহার করার পদ্ধতি টিউটোরিয়ালের এই অংশে দেখানো হয়েছে।
উদাহরণ 1: বিল্ট-ইন মডিউল ব্যবহার করা
এই উদাহরণে, পার্লের তিনটি বিল্ট-ইন মডিউলের ব্যবহার দেখানো হয়েছে। এগুলি হল 'কঠোর', 'সতর্কতা' এবং '5.34.0'। 'কঠোর' মডিউলটি পার্ল স্ক্রিপ্ট লিখতে বিভিন্ন ধরনের সীমাবদ্ধতা সক্ষম করতে ব্যবহৃত হয়। উদাহরণস্বরূপ, যদি এই মডিউলটি স্ক্রিপ্টে ব্যবহার করা হয় তবে 'my' কীওয়ার্ড ছাড়া কোনো পরিবর্তনশীল ঘোষণা করা যাবে না। 'সতর্কতা' মডিউলটি স্ক্রিপ্টটি কার্যকর করার পরে বিভিন্ন ধরণের সতর্কতা বার্তা প্রদর্শন করতে ব্যবহৃত হয় যা কোডারকে ত্রুটি বুঝতে সহায়তা করে। “5.34.0” মডিউলটি স্ক্রিপ্টে এই মডিউলের বিভিন্ন বৈশিষ্ট্য ব্যবহার করতে ব্যবহৃত হয়। 'বলো' ফাংশন যা নিউলাইন দিয়ে বার্তা প্রিন্ট করতে ব্যবহৃত হয় তা হল এই মডিউলের বৈশিষ্ট্য।
#!/usr/bin/perl
# কোডিংয়ের জন্য সীমাবদ্ধতা সক্ষম করুন
কঠোর ব্যবহার করুন ;
# ত্রুটির জন্য সতর্কতা বার্তা প্রদর্শন করুন
ব্যবহার সতর্কতা ;
# বিভিন্ন পরিষেবা সক্ষম করুন
5.34.0 ব্যবহার করুন ;
# 'কঠোর' মডিউলের জন্য 'আমার' কীওয়ার্ডের ব্যবহার বাধ্যতামূলক
আমার $ভাষা = 'পার্ল' ;
# 'বলুন' বৈশিষ্ট্যটির ব্যবহার সক্ষম করুন৷
বল '$ভাষা প্রোগ্রামিং শিখুন।' ;
আউটপুট:
স্ক্রিপ্ট চালানোর পরে নিম্নলিখিত আউটপুট প্রদর্শিত হয়:
উদাহরণ 2: ব্যবহারকারী-সংজ্ঞায়িত মডিউল ব্যবহার করা
পার্ল ব্যবহারকারীরা '.pm' এক্সটেনশনের সাথে একটি ফাইল তৈরি করে একটি নির্দিষ্ট উদ্দেশ্যে তাদের মডিউল তৈরি করতে পারে। এই উদাহরণে, একটি ব্যবহারকারী-সংজ্ঞায়িত মডিউল তৈরি করা হয় এবং এটি 'ব্যবহার' কীওয়ার্ড ব্যবহার করে অন্য পার্ল স্ক্রিপ্টে ব্যবহৃত হয়।
একটি ব্যবহারকারী-সংজ্ঞায়িত মডিউল তৈরি করুন:
নিম্নলিখিত স্ক্রিপ্ট সহ 'Bonus.pm' নামে একটি ফাইল তৈরি করুন। এখানে, 'প্যাকেজ' কীওয়ার্ডটি সংজ্ঞায়িত করতে ব্যবহৃত হয় যে এটি একটি মডিউল। এই মডিউলটিতে একটি সাবরুটিন রয়েছে যা বেতন এবং বিক্রয়ের পরিমাণের উপর ভিত্তি করে একজন কর্মচারীর বোনাস গণনা করে। পার্ল স্ক্রিপ্ট থেকে দুটি আর্গুমেন্ট মান পাস করা হয় যেখানে এই মডিউলটি ব্যবহার করা হয়। প্রথম যুক্তিতে বেতন রয়েছে এবং দ্বিতীয় যুক্তিতে বিক্রয়ের পরিমাণ রয়েছে। বেতন 10000-এর বেশি হলে বোনাসটি বিক্রয়ের পরিমাণের 15%। বেতন 7000-এর বেশি হলে বোনাসটি বিক্রয় পরিমাণের 10%। বেতন 10000-এর কম হলে বোনাসটি বিক্রয় পরিমাণের 5%। '1;' মডিউলের শেষে সত্যে ফিরে আসতে ব্যবহৃত হয়। অন্যথায়, একটি ত্রুটি মুদ্রিত হয়.
বোনাস.pm
#!/usr/bin/perlকঠোর ব্যবহার করুন ;
ব্যবহার সতর্কতা ;
5.34.0 ব্যবহার করুন ;
প্যাকেজ বোনাস ;
#বোনাস গণনা করতে সাবরুটিন ঘোষণা করুন
সাব calculate_bonus
{
# ভেরিয়েবল শুরু করুন
আমার $ বেতন = $_ [ 0 ] ;
আমার $sales_amount = $_ [ 1 ] ;
আমার $বোনাস = 0.0 ;
# বোনাস গণনা করুন
যদি ( $ বেতন > 10000 )
{
$বোনাস = $বিক্রয়_অর্থ* 0.15 ;
}
elsif ( $ বেতন > 7000 )
{
$বোনাস = $বিক্রয়_অর্থ* 0.10 ;
}
অন্য
{
$বোনাস = $বিক্রয়_অর্থ* 0.05 ;
}
# গণনাকৃত বোনাস ফেরত দিন
ফিরে $বোনাস ;
}
1 ;
একটি পার্ল স্ক্রিপ্টে একটি মডিউল আমদানি করুন:
নিম্নলিখিত স্ক্রিপ্ট সহ একটি পার্ল ফাইল তৈরি করুন যা 'বোনাস' মডিউলটি আমদানি করে যা স্ক্রিপ্টে নির্ধারিত বেতন এবং বিক্রয়ের পরিমাণের উপর ভিত্তি করে একজন কর্মচারীর বোনাস পরিমাণ গণনা করার জন্য আগে তৈরি করা হয়েছিল।
#!/usr/bin/perlকঠোর ব্যবহার করুন ;
ব্যবহার সতর্কতা ;
5.34.0 ব্যবহার করুন ;
বোনাস ব্যবহার করুন ;
# ভেরিয়েবল শুরু করুন
আমার $ নাম = 'মীর সাব্বির' ;
আমার $ বেতন = 60000 ;
আমার $সাল_অর্থ = 9700 ;
# মডিউল থেকে সাবরুটিন কল করুন
আমার $বোনাস = বোনাস::calculate_bonus ( $ বেতন , $সাল_অর্থ ) ;
আমার $salary_with_bonus = $বেতন + $বোনাস ;
# বিক্রয়ের উপর ভিত্তি করে কর্মচারী তথ্য মুদ্রণ করুন
বল 'কর্মচারীর বিবরণ: \n ' ;
বল 'নাম: $name' ;
বল 'বেতন: $salary' ;
বল 'বেতন(বোনাস সহ): $salary_with_bonus' ;
আউটপুট:
স্ক্রিপ্ট চালানোর পরে নিম্নলিখিত আউটপুট উপস্থিত হয়। এখানে, '-আমি।' ব্যবহারকারী-সংজ্ঞায়িত আমদানি করা মডিউল খুঁজে বের করতে স্ক্রিপ্ট চালানোর সময় বিকল্পটি ব্যবহার করতে হবে:
উদাহরণ 3: 'প্রয়োজন' ব্যবহার করে ব্যবহারকারী-সংজ্ঞায়িত মডিউল ব্যবহার করা
'প্রয়োজন' ফাংশনটি পার্ল স্ক্রিপ্টে মডিউলগুলি আমদানি করার আরেকটি উপায় এবং এটি এই উদাহরণে দেখানো হয়েছে। পূর্বে তৈরি করা 'বোনাস' মডিউলটি 'require' ফাংশন ব্যবহার করে স্ক্রিপ্টে আমদানি করা হয়। এই স্ক্রিপ্টে ব্যবহারকারীর কাছ থেকে বেতন এবং বিক্রয়ের পরিমাণের মান নেওয়া হয়। স্ক্রিপ্টের অন্য অংশটি আগের উদাহরণের মতো।
#!/usr/bin/perlকঠোর ব্যবহার করুন ;
ব্যবহার সতর্কতা ;
5.34.0 ব্যবহার করুন ;
বোনাস প্রয়োজন ;
# ব্যবহারকারীর কাছ থেকে ইনপুট নিন
বল 'কর্মচারীর নাম লিখুন:' ;
চম্প ( আমার $ নাম = <> ) ;
বল 'বেতন লিখুন:' ;
চম্প ( আমার $ বেতন = <> ) ;
বল 'বিক্রয়ের পরিমাণ লিখুন:' ;
চম্প ( আমার $সাল_অর্থ = <> ) ;
# মডিউল থেকে সাবরুটিন কল করুন
আমার $বোনাস = বোনাস::calculate_bonus ( $ বেতন , $সাল_অর্থ ) ;
আমার $salary_with_bonus = $বেতন + $বোনাস ;
# বিক্রয়ের উপর ভিত্তি করে কর্মচারী তথ্য মুদ্রণ করুন
বল 'কর্মচারীর বিবরণ: \n ' ;
বল 'নাম: $name' ;
বল 'বেতন: $salary' ;
বল 'বেতন(বোনাস সহ): $salary_with_bonus' ;
আউটপুট:
স্ক্রিপ্ট চালানোর পরে নিম্নলিখিত আউটপুট প্রদর্শিত হয়:
উপসংহার
পার্লে অন্তর্নির্মিত এবং ব্যবহারকারী-সংজ্ঞায়িত উভয় মডিউলের ব্যবহার সহজ উদাহরণ ব্যবহার করে এই টিউটোরিয়ালে দেখানো হয়েছে।