รูทีนย่อย Perl (ฟังก์ชัน)

รูทีนย่อย Perl ยังเป็นฟังก์ชันที่ผู้ใช้กำหนดเอง

รูทีนย่อย Perl คือโค้ดที่แยกออกมาเพื่อทำงานเฉพาะเจาะจง ซึ่งสามารถลดโค้ดที่ซ้ำกัน และทำให้โปรแกรมอ่านง่ายขึ้น

รูทีนย่อย Perl สามารถปรากฏได้ทุกที่ในโปรแกรม และรูปแบบไวยากรณ์จะเป็นดังนี้:

 รูทีนย่อย { คำสั่ง;}

รูปแบบไวยากรณ์สำหรับการเรียกรูทีนย่อย:

 รูทีนย่อย (รายการพารามิเตอร์);

ในเวอร์ชันที่ต่ำกว่า Perl 5.0 วิธีการเรียกรูทีนย่อยจะเป็นดังนี้:

 &รูทีนย่อย(รายการพารามิเตอร์);

ในเวอร์ชันใหม่ แม้ว่าจะรองรับวิธีการโทรนี้เช่นกัน แต่ก็ไม่แนะนำให้ใช้

ต่อไปเรามาดูตัวอย่างง่ายๆ:

ตัวอย่าง

#!/usr/bin/perl #นิยามฟังก์ชั่น ย่อย สวัสดี { พิมพ์ " สวัสดีชาวโลก! n " ; #การเรียกใช้ฟังก์ชัน สวัสดี ( ) ;

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

 สวัสดีชาวโลก!

ส่งพารามิเตอร์ไปยังรูทีนย่อย

โปรแกรมย่อย Perl สามารถรับพารามิเตอร์ได้หลายตัวเช่นเดียวกับพารามิเตอร์โปรแกรมย่อยอื่น ๆ ที่ทำเครื่องหมายด้วยอาร์เรย์พิเศษ @_

ดังนั้น พารามิเตอร์แรกของรูทีนย่อยคือ $_[0] พารามิเตอร์ตัวที่สองคือ $_[1] และต่อๆ ไป

ไม่ว่าพารามิเตอร์จะเป็นสเกลาร์หรืออาเรย์ก็ตาม เมื่อผู้ใช้ส่งพารามิเตอร์ไปยังรูทีนย่อย Perl จะเรียกพารามิเตอร์เหล่านั้นโดยการอ้างอิงตามค่าเริ่มต้น

ตัวอย่าง

#!/usr/bin/perl #กำหนดฟังก์ชันการหาค่าเฉลี่ย ย่อย เฉลี่ย { # รับพารามิเตอร์ที่เข้ามาทั้งหมด $n = สเกลาร์ ( @_ ) ; $ sum = 0 ; $รายการ ( @_ ) { $sum += $ รายการ ; $average = $sum / $n; print 'พารามิเตอร์ที่ส่งเข้ามาคือ: ',"@_n"; # พิมพ์อาร์เรย์ทั้งหมด "ค่าพารามิเตอร์แรกคือ: $_[0]n"; พารามิเตอร์ตัวแรกที่พิมพ์ "ค่าเฉลี่ยของพารามิเตอร์ที่ส่งผ่านคือ: $averagen"; #Print ค่าเฉลี่ย} #Call ฟังก์ชัน Average(10, 20, 30);

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

 พารามิเตอร์ที่ส่งผ่านคือ: 10 20 30 ค่าของพารามิเตอร์แรกคือ: 10 ค่าเฉลี่ยของพารามิเตอร์ที่ส่งผ่านคือ: 20

ผู้ใช้สามารถเปลี่ยนค่าของพารามิเตอร์จริงที่เกี่ยวข้องได้โดยการเปลี่ยนค่าในอาร์เรย์ @_

ส่งรายการไปยังรูทีนย่อย

เนื่องจากตัวแปร @_ เป็นอาร์เรย์ จึงสามารถส่งรายการไปยังรูทีนย่อยได้

แต่ถ้าเราจำเป็นต้องส่งผ่านพารามิเตอร์สเกลาร์และอาร์เรย์ เราจำเป็นต้องใส่รายการไว้ที่พารามิเตอร์ตัวสุดท้าย ดังที่แสดงด้านล่าง:

ตัวอย่าง

#!/usr/bin/perl #กำหนดฟังก์ชั่น ย่อย รายการพิมพ์ { ของฉัน @รายการ = @_ ; พิมพ์ " รายการคือ: @list n " } $a = 10 ; @b = ( 1 , 2 , 3 , 4 ) # รายการ พารามิเตอร์ รายการพิมพ์ ( $a , @b ) ;

โปรแกรมข้างต้นรวมสเกลาร์และอาร์เรย์เข้าด้วยกัน และผลลัพธ์คือ:

 รายการคือ: 10 1 2 3 4

เราสามารถส่งผ่านอาร์เรย์และแฮชหลายรายการไปยังรูทีนย่อยได้ แต่เมื่อส่งผ่านอาร์เรย์และแฮชหลายรายการ ตัวตนที่เป็นอิสระจะหายไป ดังนั้นเราจึงจำเป็นต้องใช้ข้อมูลอ้างอิง (จะแนะนำในบทถัดไป) เพื่อให้ผ่าน

ส่งแฮชไปยังรูทีนย่อย

เมื่อตารางแฮชถูกส่งไปยังรูทีนย่อย ตารางแฮชจะถูกคัดลอกไปที่ @_ และตารางแฮชจะถูกขยายไปยังรายการชุดค่าผสมของคีย์/ค่า

ตัวอย่าง

#!/usr/bin/perl #นิยามวิธีการ ย่อย พิมพ์แฮช { ของฉัน ( %แฮ ช ) = @_ ; ของฉัน $คีย์ - กุญแจ %กัญชา ) { ของฉัน $value = $hash { $ key } ; " $key : $value n " ; - %hash = ( ' name ' => ' codercto ' , ' age ' => 3 ) ; # ผ่านแฮช พิมพ์แฮช ( %แฮช ) ;

ผลลัพธ์ของการทำงานของโปรแกรมข้างต้นคือ:

 อายุ: 3ปีชื่อ: codercto

ค่าส่งคืนของรูทีนย่อย

รูทีนย่อยสามารถคืนค่าฟังก์ชันได้โดยใช้คำสั่ง return เช่นเดียวกับในภาษาการเขียนโปรแกรมอื่นๆ

หากไม่ได้ใช้คำสั่ง return บรรทัดสุดท้ายของรูทีนย่อยจะถูกใช้เป็นค่าส่งคืน

ตัวอย่าง

#!/usr/bin/perl #นิยามวิธีการ ย่อย add_a_b { #ห้ามใช้คืน $_ [ 0 ] + $_ [ 1 ] ; # ใช้การส่งคืน # ส่งคืน $_[0]+$_[1]; - พิมพ์ add_a_b ( 1 , 2 )

ผลลัพธ์ของการทำงานของโปรแกรมข้างต้นคือ:

 3

เราสามารถส่งคืนสเกลาร์ อาร์เรย์ และแฮชในรูทีนย่อยได้ แต่เมื่อส่งคืนอาร์เรย์และแฮชหลายรายการ ข้อมูลเฉพาะตัวที่เป็นอิสระจะหายไป ดังนั้นเราจึงจำเป็นต้องใช้การอ้างอิง (แนะนำในบทถัดไป) เพื่อส่งคืนอาร์เรย์และฟังก์ชันหลายรายการ

ตัวแปรส่วนตัวของรูทีนย่อย

ตามค่าเริ่มต้น ตัวแปรทั้งหมดใน Perl จะเป็นตัวแปรส่วนกลาง ซึ่งหมายความว่าสามารถเรียกตัวแปรได้ทุกที่ในโปรแกรม

หากเราต้องตั้งค่าตัวแปรส่วนตัว เราสามารถใช้ตัวดำเนินการ ของฉัน ในการตั้งค่าได้

ตัวดำเนินการ ของฉัน ใช้เพื่อสร้างตัวแปรที่กำหนดขอบเขตคำศัพท์ ตัวแปรที่สร้างโดย my survival ตั้งแต่เริ่มต้นการประกาศจนถึงจุดสิ้นสุดของขอบเขตปิด

ขอบเขตแบบปิดหมายถึงพื้นที่ภายในวงเล็บปีกกา ไฟล์ หรือสตริง if, while, for, foreach หรือ eval

ตัวอย่างต่อไปนี้สาธิตวิธีการประกาศตัวแปรส่วนตัวอย่างน้อยหนึ่งรายการ:

 sub somefunc { $variable; # $variable ไม่สามารถมองเห็นได้ภายนอกเมธอด somefunc() my ($another, @an_array, %a_hash); # ประกาศตัวแปรหลายตัวในเวลาเดียวกัน}

ตัวอย่าง

#!/usr/bin/perl #ตัวแปรทั่วโลก $string = " สวัสดีชาวโลก! " ; # คำจำกัดความของฟังก์ชัน ย่อย พิมพ์สวัสดี { #ตัวแปรส่วนตัวของฟังก์ชัน PrintHello ของฉัน $string ; $string = " สวัสดี Codercto! " ; " สตริงภายในฟังก์ชัน: $ string n " } #ฟังก์ชั่นการโทร พิมพ์ สวัสดี ( ) ; " สตริงฟังก์ชันภายนอก: $string n " ;

ผลลัพธ์ของการทำงานของโปรแกรมข้างต้นคือ:

 สตริงภายในฟังก์ชัน: สวัสดี Codercto! สตริงภายนอกฟังก์ชัน: สวัสดีชาวโลก!

การกำหนดตัวแปรชั่วคราว

เราสามารถใช้ local เพื่อจัดเตรียมค่าชั่วคราวสำหรับตัวแปรส่วนกลางและส่งกลับค่าเดิมหลังจากออกจากขอบเขต

ตัวแปรที่กำหนดโดยโลคัลไม่มีอยู่ในโปรแกรมหลัก แต่มีอยู่ในโปรแกรมย่อยและโปรแกรมย่อยที่เรียกโดยโปรแกรมย่อย คุณสามารถกำหนดค่าให้กับมันได้เมื่อทำการกำหนดค่า เช่น:

ตัวอย่าง

#!/usr/bin/perl #ตัวแปรทั่วโลก $string = " สวัสดี ชาวโลก! " ; พิมพ์โคเดอร์คโต { #PrintHello ฟังก์ชันตัวแปรส่วนตัว ท้องถิ่น $string ; $string = " สวัสดี Codercto! " ; # รูทีนย่อยที่ถูกเรียกโดยรูทีนย่อย พิมพ์ Me ( ) ; " ค่าสตริงในฟังก์ชัน PrintCodercto: $string n " ; ย่อย พิมพ์ฉัน { พิมพ์ " ค่าสตริงในฟังก์ชัน PrintMe: $string n " ; ย่อย พิมพ์สวัสดี { พิมพ์ " ค่าสตริงในฟังก์ชัน PrintHello: $string n " ; #การเรียกใช้ฟังก์ชัน PrintCodercto ( ) ; PrintHello ( ) ;​ " ค่าสตริงภายนอกฟังก์ชัน: $string n " ;

ผลลัพธ์ของการทำงานของโปรแกรมข้างต้นคือ:

 ค่าสตริงภายในฟังก์ชัน PrintMe: สวัสดี Codercto!PrintCodercto ค่าสตริงภายในฟังก์ชัน: สวัสดี Codercto!PrintHello ค่าสตริงภายในฟังก์ชัน: Hello, World! ค่าสตริงภายนอกฟังก์ชัน: Hello, World!

ตัวแปรคงที่

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

state ยังเป็นตัวแปรคำศัพท์ ดังนั้นจึงใช้ได้เฉพาะในขอบเขตคำศัพท์ที่มีการกำหนดตัวแปรไว้เท่านั้น ตัวอย่างเช่น:

ตัวอย่าง

#!/usr/bin/perl ใช้คุณสมบัติ ' รัฐ ' ;​ จำนวนการพิมพ์ { สถานะ $count = 0 ; #เริ่มต้นตัวแปร พิมพ์ " มูลค่า ตัว นับคือ: $ count n " ; สำหรับ ( 1 . .5 ) { จำนวน การพิมพ์ ( ) ;

ผลลัพธ์ของการทำงานของโปรแกรมข้างต้นคือ:

 ค่าของตัวนับคือ: 0 ตัวนับ ค่าคือ: 1 ตัวนับ ค่าคือ: 2 ตัวนับ ค่าคือ: 3 ตัวนับ ค่าคือ: 4

หมายเหตุ 1: state สามารถสร้างได้เฉพาะตัวแปรที่มีขอบเขตปิดอยู่ภายในรูทีนย่อย

หมายเหตุ 2: สถานะถูกนำมาใช้จาก Perl 5.9.4 ดังนั้นจึงต้องเพิ่มการใช้งานก่อนใช้งาน

หมายเหตุ 3: state สามารถประกาศสเกลาร์ อาร์เรย์ และแฮชได้ แต่อาร์เรย์และแฮชไม่สามารถเริ่มต้นได้เมื่อมีการประกาศ (อย่างน้อยก็ไม่ใช่ใน Perl 5.14)

บริบทการโทรรูทีนย่อย

ในระหว่างกระบวนการเรียกรูทีนย่อย ค่าประเภทต่างๆ จะถูกส่งกลับตามบริบท ตัวอย่างเช่น รูทีนย่อย localtime() ต่อไปนี้จะส่งคืนสตริงในบริบทสเกลาร์และรายการในบริบทของรายการ:

ตัวอย่าง

#!/usr/bin/perl # บริบทสเกลาร์ ของฉัน $datestring = เวลาท้องถิ่น ( เวลา ) ; พิมพ์ $เดทสตริง ; พิมพ์ " n " ; # รายการบริบท ( $sec , $min , $hour , $mday , $mon , $ year , $wday , $yday , $isdst ) = เวลาท้องถิ่น ( เวลา ) printf ( " % d-%d-%d %d:%d :%d " , $year + 1990 , $mon + 1 , $mday , $hour , $min , $sec ) ; พิมพ์ " n " ;

ผลลัพธ์ของการทำงานของโปรแกรมข้างต้นคือ:

 อา. 12 มิ.ย. 15:58:09 25592106-6-12 15:58:9