คำสั่งสวิตช์ Perl

ผู้เขียน：Eve Cole เวลาอัปเดต：2024-12-24 17:12:01

คำสั่ง switch ช่วยให้สามารถทดสอบตัวแปรที่มีค่าเท่ากับหลายค่าได้ แต่ละค่าเรียกว่าเคส และตัวแปรที่กำลังทดสอบจะถูกตรวจสอบสำหรับแต่ละ เคสสวิตช์

การดำเนินการกรณีสวิตช์จะขึ้นอยู่กับโมดูล สวิตช์ ซึ่ง ไม่ได้ติดตั้งตามค่าเริ่มต้น

ติดตั้งโมดูล Switch.pm

ติดตั้งโดยใช้ CPAN

เปิดหน้าต่างคำสั่ง ป้อนคำสั่ง cpan จากนั้นป้อนคำสั่งติดตั้ง Switch:

 # cpancpan [1]> ติดตั้งสวิตช์ // ติดตั้ง cpan [2]> ออก // ออก

การติดตั้ง Ubuntu โดยใช้ apt-get

 sudo apt-get ติดตั้ง libswitch-perl

ไวยากรณ์

รูปแบบไวยากรณ์เป็นดังนี้:

ไวยากรณ์

ใช้สวิตช์ ; สวิตช์ ( อาร์กิวเมนต์ ) { กรณี 1 - พิมพ์ " หมายเลข 1 " - กรณี " เป็น " - พิมพ์ " สตริงก " - กรณี [ 1..10,42 ] - พิมพ์ " ตัวเลขอยู่ในรายการ " - กรณี ( @อาร์เรย์ ) - พิมพ์ " ตัวเลขในอาร์เรย์ " - กรณี / w+ / - พิมพ์ " รูปแบบการจับคู่ปกติ " - กรณี qr /w+/ { p r int " รูปแบบการจับคู่ปกติ " - กรณี ( % แฮช ) - พิมพ์ " แฮช " - กรณี ( & ย่อย ) - พิมพ์ " กระบวนการเด็ก " - อื่น - พิมพ์ " ไม่ตรงกับเงื่อนไขเดิม " } }

ต่อไปนี้เป็นกฎสำหรับคำสั่ง switch:

พารามิเตอร์สเกลาร์ชนิดใดก็ได้สามารถใช้ได้ในวงเล็บของคำสั่ง switch

สามารถมีคำสั่ง case จำนวนเท่าใดก็ได้ในสวิตช์ แต่ละกรณีจะตามด้วยค่าที่จะเปรียบเทียบและเครื่องหมายทวิภาค

สเกลาร์หลังคำสั่ง case จะถูกเปรียบเทียบกับสเกลาร์ในคำสั่ง switch เพื่อพิจารณาว่ามีค่าเท่ากันหรือไม่

เมื่อตัวแปรที่กำลังทดสอบเท่ากับค่าคงที่ในกรณี คำสั่งที่ตามหลังกรณีจะถูกดำเนินการจนกว่าจะพบคำสั่ง แบ่ง

คำสั่ง switch สามารถมีคำสั่ง else ในตอนท้ายได้ ซึ่งจะถูกดำเนินการหากทุกกรณีไม่ตรงกัน

เมื่อเคสตรงกัน โค้ดบล็อกคำสั่งเคสจะถูกดำเนินการ และคำสั่ง switch จะกระโดดออกมาหลังจากดำเนินการ

หลังจากจับคู่เคสแล้ว หากเราต้องดำเนินการคำสั่ง case ถัดไปต่อไป เราจำเป็นต้องเพิ่มคำสั่ง ถัดไป

แผนภูมิการไหล

ตัวอย่าง

#!/usr/bin/perl ใช้ สวิตช์ ; $ var = 10 ; @array = ( 10 , 20 , 30 ) ; % hash = ( ' key1 ' = > 10 , ' key2 ' = > 20 ) ; กรณี 10 - พิมพ์ " หมายเลข 10 n " - กรณี " เป็น " - พิมพ์ " สตริงก " - กรณี [ 1..10,42 ] - พิมพ์ " ตัวเลขอยู่ในรายการ " - กรณี ( @อาร์เรย์ ) - พิมพ์ " ตัวเลขในอาร์เรย์ " - กรณี ( % แฮช ) - พิมพ์ " ในแฮช " - อื่น - พิมพ์ " ไม่มีเกณฑ์ที่ตรงกัน " - -

เมื่อรันโปรแกรมข้างต้น ผลลัพธ์ที่ได้คือ:

 หมายเลข 10

ต่อไปเรามาดูตัวอย่างการใช้ next :

ตัวอย่าง

#!/usr/bin/perl ใช้ สวิตช์ ; $ var = 10 ; @array = ( 10 , 20 , 30 ) ; % hash = ( ' key1 ' = > 10 , ' key2 ' = > 20 ) ; กรณี 10 - พิมพ์ " หมายเลข 10 n " ; # ดำเนินการต่อไปหลังจากการจับคู่ กรณี " เป็น " - พิมพ์ " สตริงก " - กรณี [ 1..10,42 ] - พิมพ์ " ตัวเลขอยู่ในรายการ " - กรณี ( @อาร์เรย์ ) - พิมพ์ " ตัวเลขในอาร์เรย์ " - กรณี ( % แฮช ) - พิมพ์ " ในแฮช " - อื่น - พิมพ์ " ไม่มีเกณฑ์ที่ตรงกัน " - -

เมื่อรันโปรแกรมข้างต้น ผลลัพธ์ที่ได้คือ:

 หมายเลข 10 ในรายการ