ตัวอย่างต่างๆ ของโมดูล Perl
วิธีการใช้โมดูล Perl ในตัวและโมดูลที่ผู้ใช้กำหนดจะแสดงไว้ในส่วนนี้ของบทช่วยสอน
ตัวอย่างที่ 1: การใช้โมดูลในตัว
ในตัวอย่างนี้ แสดงการใช้โมดูล Perl ในตัวสามโมดูล สิ่งเหล่านี้คือ 'เข้มงวด' 'คำเตือน' และ '5.34.0' โมดูล 'เข้มงวด' ใช้เพื่อเปิดใช้ข้อจำกัดประเภทต่างๆ ในการเขียนสคริปต์ Perl ตัวอย่างเช่น ไม่สามารถประกาศตัวแปรได้หากไม่มีคีย์เวิร์ด “my” หากโมดูลนี้ถูกใช้ในสคริปต์ โมดูล “คำเตือน” ใช้เพื่อแสดงข้อความเตือนประเภทต่างๆ หลังจากรันสคริปต์ที่ช่วยให้ผู้เขียนโค้ดเข้าใจข้อผิดพลาด โมดูล “5.34.0” ใช้เพื่อใช้คุณสมบัติต่างๆ ของโมดูลนี้ในสคริปต์ ฟังก์ชัน “พูด” ที่ใช้ในการพิมพ์ข้อความด้วยการขึ้นบรรทัดใหม่เป็นคุณลักษณะของโมดูลนี้
#!/usr/bin/perl
#เปิดใช้งานข้อ จำกัด สำหรับการเข้ารหัส
ใช้อย่างเข้มงวด ;
#แสดงข้อความแจ้งเตือนข้อผิดพลาด
ใช้ คำเตือน ;
#เปิดใช้บริการต่างๆ
ใช้ 5.34.0 ;
#การใช้คำหลัก 'my' เป็นสิ่งจำเป็นสำหรับโมดูล 'เข้มงวด'
$ ภาษาของฉัน = 'เพิร์ล' ;
#เปิดใช้งานการใช้คุณสมบัติ 'พูด'
พูด 'เรียนรู้การเขียนโปรแกรมภาษา $' ;
เอาท์พุท:
ผลลัพธ์ต่อไปนี้จะปรากฏขึ้นหลังจากรันสคริปต์:
ตัวอย่างที่ 2: การใช้โมดูลที่ผู้ใช้กำหนด
ผู้ใช้ Perl สามารถสร้างโมดูลของตนเพื่อจุดประสงค์เฉพาะได้โดยการสร้างไฟล์ที่มีนามสกุล “.pm” ในตัวอย่างนี้ โมดูลที่ผู้ใช้กำหนดจะถูกสร้างขึ้นและใช้ในสคริปต์ Perl อื่นโดยใช้คีย์เวิร์ด 'use'
สร้างโมดูลที่ผู้ใช้กำหนด:
สร้างไฟล์ชื่อ “Bonus.pm” ด้วยสคริปต์ต่อไปนี้ ในที่นี้คำว่า 'แพ็คเกจ' ใช้เพื่อกำหนดว่าเป็นโมดูล โมดูลนี้มีรูทีนย่อยที่คำนวณโบนัสของพนักงานตามเงินเดือนและยอดขาย ค่าอาร์กิวเมนต์สองค่าถูกส่งผ่านจากสคริปต์ Perl ที่ใช้โมดูลนี้ อาร์กิวเมนต์แรกประกอบด้วยเงินเดือน และอาร์กิวเมนต์ที่สองประกอบด้วยยอดขาย โบนัสคือ 15% ของยอดขายหากเงินเดือนมากกว่า 10,000 โบนัสคือ 10% ของยอดขายหากเงินเดือนมากกว่า 7,000 โบนัสคือ 5% ของยอดขายหากเงินเดือนน้อยกว่า 10,000 . “1;” ใช้ที่ส่วนท้ายของโมดูลเพื่อคืนค่าเป็นจริง มิฉะนั้นจะพิมพ์ข้อผิดพลาด
โบนัส.น
#!/usr/bin/perlใช้อย่างเข้มงวด ;
ใช้ คำเตือน ;
ใช้ 5.34.0 ;
แพ็คเกจโบนัส ;
#ประกาศรูทีนย่อยในการคำนวณโบนัส
คำนวณย่อย_โบนัส
{
#เริ่มต้นตัวแปร
เงินเดือน $ ของฉัน = $_ [ 0 ] ;
$sales_amount ของฉัน = $_ [ 1 ] ;
โบนัส $ ของฉัน = 0.0 ;
#คำนวณโบนัส
ถ้า ( $เงินเดือน > 10,000 )
{
โบนัส $ = $ยอดขาย_จำนวน* 0.15 ;
}
เอลซิฟ ( $เงินเดือน > 7000 )
{
โบนัส $ = $ยอดขาย_จำนวน* 0.10 ;
}
อื่น
{
โบนัส $ = $ยอดขาย_จำนวน* 0.05 ;
}
#คืนโบนัสที่คำนวณไว้
กลับ โบนัส $ ;
}
1 ;
นำเข้าโมดูลในสคริปต์ Perl:
สร้างไฟล์ Perl ด้วยสคริปต์ต่อไปนี้ที่นำเข้าโมดูล 'โบนัส' ที่สร้างขึ้นก่อนหน้านี้เพื่อคำนวณจำนวนโบนัสของพนักงานตามเงินเดือนและยอดขายที่กำหนดในสคริปต์
#!/usr/bin/perlใช้อย่างเข้มงวด ;
ใช้ คำเตือน ;
ใช้ 5.34.0 ;
ใช้โบนัส ;
#เริ่มต้นตัวแปร
$ ชื่อของฉัน = “เมียร์ ซับบีร์” ;
เงินเดือน $ ของฉัน = 60000 ;
$sal_amount ของฉัน = 9700 ;
#Call รูทีนย่อยจากโมดูล
โบนัส $ ของฉัน = โบนัส::calculate_bonus ( $เงินเดือน , $sal_amount ) ;
$salary_with_bonus ของฉัน = $เงินเดือน + $โบนัส ;
#พิมพ์ข้อมูลพนักงานตามยอดขาย
พูด “รายละเอียดพนักงาน: \n ' ;
พูด 'ชื่อ: $ชื่อ' ;
พูด 'เงินเดือน: $ เงินเดือน' ;
พูด 'เงินเดือน(พร้อมโบนัส): $salary_with_bonus' ;
เอาท์พุท:
ผลลัพธ์ต่อไปนี้จะปรากฏขึ้นหลังจากรันสคริปต์ ที่นี่ '-ฉัน' ต้องใช้ตัวเลือกในขณะที่ดำเนินการสคริปต์เพื่อค้นหาโมดูลนำเข้าที่ผู้ใช้กำหนด:
ตัวอย่างที่ 3: การใช้โมดูลที่ผู้ใช้กำหนดโดยใช้ 'ต้องการ'
ฟังก์ชัน “require” เป็นอีกวิธีหนึ่งในการนำเข้าโมดูลในสคริปต์ Perl และแสดงไว้ในตัวอย่างนี้ โมดูล “โบนัส” ที่สร้างขึ้นก่อนหน้านี้จะถูกนำเข้าไปยังสคริปต์โดยใช้ฟังก์ชัน “ต้องการ” ค่าเงินเดือนและยอดขายถูกนำมาจากผู้ใช้ในสคริปต์นี้ ส่วนอื่นของสคริปต์จะคล้ายกับตัวอย่างก่อนหน้านี้
#!/usr/bin/perlใช้อย่างเข้มงวด ;
ใช้ คำเตือน ;
ใช้ 5.34.0 ;
ต้องการโบนัส ;
#รับข้อมูลจากผู้ใช้
พูด 'กรอกชื่อพนักงาน:' ;
กัด ( $ ชื่อของฉัน = <> ) ;
พูด 'ป้อนเงินเดือน:' ;
กัด ( เงินเดือน $ ของฉัน = <> ) ;
พูด 'ป้อนยอดขาย:' ;
กัด ( $sal_amount ของฉัน = <> ) ;
#Call รูทีนย่อยจากโมดูล
โบนัส $ ของฉัน = โบนัส::calculate_bonus ( $เงินเดือน , $sal_amount ) ;
$salary_with_bonus ของฉัน = $เงินเดือน + $โบนัส ;
#พิมพ์ข้อมูลพนักงานตามยอดขาย
พูด “รายละเอียดพนักงาน: \n ' ;
พูด 'ชื่อ: $ชื่อ' ;
พูด 'เงินเดือน: $ เงินเดือน' ;
พูด 'เงินเดือน(พร้อมโบนัส): $salary_with_bonus' ;
เอาท์พุท:
ผลลัพธ์ต่อไปนี้จะปรากฏขึ้นหลังจากรันสคริปต์:
บทสรุป
การใช้โมดูลทั้งในตัวและที่ผู้ใช้กำหนดใน Perl จะแสดงอยู่ในบทช่วยสอนนี้โดยใช้ตัวอย่างง่ายๆ