แฮชเพิร์ล

แฮชคือชุดของคู่ คีย์/ค่า

ตัวแปรแฮชในภาษา Perl เริ่มต้นด้วยเครื่องหมายเปอร์เซ็นต์ (%)

เข้าถึงรูปแบบองค์ประกอบแฮช: ${key}

นี่คือตัวอย่างแฮชง่ายๆ:

ตัวอย่าง

#!/usr/bin/perl % data = ( ' google ' , ' google.com ' , ' codercto ' , ' codercto.com ' , ' taobao ' , ' taobao.com ' ) ; " $ data{'google'} = $ data {'google'} n " ; " $ data {'codercto'} = $data {'codercto'} n " ; " $ data{'taobao'} = $data {'taobao'} n " ;

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

สร้างแฮช

มีสองวิธีในการสร้างแฮช:

1. ตั้งค่าสำหรับแต่ละคีย์

 $data{'google'} = 'google.com';$data{'codercto'} = 'codercto.com';$data{'taobao'} = 'taobao.com';

2. การตั้งค่าผ่านรายการ

องค์ประกอบแรกในรายการคือคีย์ และองค์ประกอบที่สองคือค่า

 %data = ('google', 'google.com', 'codercto', 'codercto.com', 'taobao', 'taobao.com');

คุณยังสามารถใช้สัญลักษณ์ => เพื่อตั้งค่าคีย์/ค่า:

 %data = ('google'=>'google.com', 'codercto'=>'codercto.com', 'taobao'=>'taobao.com');

ตัวอย่างต่อไปนี้เป็นรูปแบบหนึ่งของตัวอย่างข้างต้น โดยใช้ - แทนเครื่องหมายคำพูด:

 %data = (-google=>'google.com', -codercto=>'codercto.com', -taobao=>'taobao.com');

ด้วยวิธีนี้ ช่องว่างจะไม่ปรากฏในคีย์ วิธีการอ่านองค์ประกอบคือ:

 $val = $data{-google}$val = $data{-codercto}

เข้าถึงองค์ประกอบแฮช

รูปแบบองค์ประกอบแฮชการเข้าถึง: ${key} ตัวอย่างจะเป็นดังนี้:

ตัวอย่าง

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' => ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; " $ data{'google'} = $ data {'google'} n " ; " $ data {'codercto'} = $data {'codercto'} n " ; " $ data{'taobao'} = $data {'taobao'} n " ;

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

อ่านค่าแฮช

คุณสามารถแยกค่าจากแฮชได้เหมือนกับอาร์เรย์

ค่าแฮชจะถูกแยกออกมาเป็นรูปแบบไวยากรณ์อาร์เรย์: @{key1,key2}

ตัวอย่าง

#!/uer/bin/perl %ข้อมูล = ( - taobao => 45 , - กูเกิล => 30 , - โคเดอร์กโต => 40 ) ; @array = @data { - taobao , - codercto } ; " อาร์เรย์ : @array n " ;

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

 อาร์เรย์: 45 40

อ่านคีย์แฮชและค่า

อ่านคีย์ทั้งหมด

เราสามารถใช้ฟังก์ชัน คีย์ เพื่ออ่านคีย์ทั้งหมดของแฮชได้ โดยมีรูปแบบดังนี้:

 คีย์ %แฮช

ฟังก์ชันนี้จะส่งคืนอาร์เรย์ของคีย์ทั้งหมดสำหรับแฮชทั้งหมด

ตัวอย่าง

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %ข้อมูล ; พิมพ์ " $names [ 0] n " ; " $names [ 1] n " ; " $names [2] n " ;

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

 taobaogooglecodercto

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

 ค่า%แฮช

ฟังก์ชันนี้ส่งคืนอาร์เรย์ของค่าทั้งหมดสำหรับแฮชทั้งหมด

ตัวอย่าง

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %ข้อมูล ; พิมพ์ " $urls [0] n " ; " $urls [1] n " ; " $urls [2] n " ;

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

 taobao.comcodercto.comgoogle.com

ตรวจสอบว่ามีองค์ประกอบอยู่หรือไม่

หากคุณอ่านคู่คีย์/ค่าที่ไม่มีอยู่ในแฮช ค่า ที่ไม่ได้กำหนด จะถูกส่งกลับและคำเตือนจะปรากฏขึ้นระหว่างการดำเนินการ

เพื่อหลีกเลี่ยงสถานการณ์นี้ เราสามารถใช้ฟังก์ชัน ที่มีอยู่ เพื่อตรวจสอบว่าคีย์มีอยู่หรือไม่ และอ่านเมื่อมีคีย์อยู่:

ตัวอย่าง

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' => ' taobao.com ' ) ถ้า ( มีอยู่แล้ว ( $data { ' facebook ' } - ) { พิมพ์ " URL ของ facebook คือ $data {'facebook'} n " ; อื่น - พิมพ์ " ไม่มีรหัส facebook n " ;

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

 ไม่มีคีย์ Facebook

ในโค้ดข้างต้น เราใช้คำสั่ง IF...ELSE ซึ่งเราจะแนะนำโดยละเอียดในบทต่อไปนี้

รับขนาดแฮช

ขนาดแฮชคือจำนวนองค์ประกอบ เราสามารถรับขนาดแฮชได้โดยรับอาร์เรย์องค์ประกอบทั้งหมดของคีย์หรือค่า จากนั้นจึงคำนวณจำนวนองค์ประกอบอาร์เรย์ ตามตัวอย่างดังต่อไปนี้:

ตัวอย่าง

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %ข้อมูล ; $ size = @keys ; " 1 - ขนาดแฮช : $ size n " ; %data ; $ size = @values ​​; " 2 - ขนาดแฮช: $size n " ;

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

 1 - ขนาดแฮช: 32 - ขนาดแฮช: 3

เพิ่มหรือลบองค์ประกอบออกจากแฮช

การเพิ่มคู่คีย์/ค่าสามารถทำได้ผ่านการกำหนดง่ายๆ แต่หากต้องการลบองค์ประกอบแฮชคุณต้องใช้ฟังก์ชัน ลบ :

ตัวอย่าง

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %ข้อมูล ; $ size = @keys ; " 1 - ขนาดแฮช: $size n " ; # เพิ่มองค์ประกอบ $data { ' facebook ' } = ' facebook.com ' ; @keys = คีย์ %ข้อมูล ; $ size = @keys ; " 2 - ขนาดแฮช: $size n " ; # ลบองค์ประกอบออกจากแฮช ลบ $ data { ' taobao ' } ;​​ %ข้อมูล ; $ size = @keys ; " 3 - ขนาดแฮช: $size n " ;

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

 1 - ขนาดแฮช: 32 - ขนาดแฮช: 43 - ขนาดแฮช: 3