hash Perl

Hash adalah kumpulan pasangan kunci/nilai .

Variabel hash di Perl dimulai dengan tanda persen (%).

Akses format elemen hash: ${key} .

Berikut adalah contoh hash sederhana:

Contoh

#!/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 " ;

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

Buat hash

Ada dua cara untuk membuat hash:

1. Tetapkan nilai untuk setiap kunci

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

2. Menetapkan melalui daftar

Elemen pertama dalam daftar adalah kunci, dan elemen kedua adalah nilai.

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

Anda juga dapat menggunakan simbol => untuk mengatur kunci/nilai:

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

Contoh berikut adalah variasi dari contoh di atas, menggunakan - sebagai pengganti tanda kutip:

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

Dengan cara ini, spasi tidak dapat muncul pada kunci. Cara membaca elemen adalah:

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

Akses elemen hash

Akses format elemen hash: ${key} , contohnya sebagai berikut:

Contoh

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

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

Baca nilai hash

Anda dapat mengekstrak nilai dari hash seperti halnya array.

Nilai hash diekstraksi ke dalam format sintaksis array: @{key1,key2} .

Contoh

#!/uer/bin/Perl %data = ( - taobao => 45 , - google => 30 , - kodercto => 40 ) ; @array = @data { - taobao , - codercto } ; " Array : @array n " ;

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 Jajaran: 45 40

Baca kunci dan nilai hash

Baca semua kunci

Kita dapat menggunakan fungsi kunci untuk membaca semua kunci hash. Sintaksnya adalah sebagai berikut:

 kunci %HASH

Fungsi ini mengembalikan array semua kunci untuk semua hash.

Contoh

#!/usr/bin/Perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; % data ; " $nama [ 0] n " ; " $nama [ 1] n " ; " $nama [2] n " ;

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 taobaogooglecodercto

Demikian pula, kita dapat menggunakan fungsi nilai untuk membaca semua nilai hash. Format sintaksnya adalah sebagai berikut:

 nilai%HASH

Fungsi ini mengembalikan array semua nilai untuk semua hash.

Contoh

#!/usr/bin/Perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; % data ; " $url [0] n " ; " $url [1] n " ; " $url [2] n " ;

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 taobao.comcodercto.comgoogle.com

Periksa apakah elemen ada

Jika Anda membaca pasangan kunci/nilai yang tidak ada dalam hash, nilai yang tidak ditentukan akan dikembalikan dan peringatan akan muncul selama eksekusi.

Untuk menghindari situasi ini, kita dapat menggunakan fungsi yang ada untuk menentukan apakah kunci tersebut ada dan membacanya ketika kunci tersebut ada:

Contoh

#!/usr/bin/Perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; ada ( $data { ' facebook ' } ) ) { mencetak " URL facebooknya adalah $data {'facebook'} n " ; kalau tidak { mencetak " kunci facebook tidak ada n " ;

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 kunci facebook tidak ada

Pada kode di atas, kita menggunakan pernyataan IF...ELSE , yang akan kita perkenalkan secara detail pada bab berikutnya.

Dapatkan ukuran hash

Ukuran hash adalah jumlah elemen. Kita bisa mendapatkan ukuran hash dengan terlebih dahulu mendapatkan semua array elemen kunci atau nilai, lalu menghitung jumlah elemen array.

Contoh

#!/usr/bin/Perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %data ; $ ukuran = @kunci ; " 1 - Ukuran hash: $size n " ; @values ​​​​= nilai %data ; $ ukuran = @nilai ; " 2 - Ukuran hash: $ukuran n " ;

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 1 - Ukuran hash: 32 - Ukuran hash: 3

Menambah atau menghapus elemen dari hash

Menambahkan pasangan kunci/nilai dapat dilakukan melalui penugasan sederhana. Namun untuk menghapus elemen hash Anda perlu menggunakan fungsi delete :

Contoh

#!/usr/bin/Perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %data ; $ ukuran = @kunci ; " 1 - Ukuran hash: $size n " ; # Tambahkan elemen $ data { ' facebook ' } = ' facebook.com ' ;​​ %data ; $ ukuran = @kunci ; " 2 - Ukuran hash: $size n " ; # Hapus elemen dari hash menghapus $data { ' taobao ' } ; @kunci = kunci %data ; $ ukuran = @kunci ; " 3 - Ukuran hash: $ukuran n " ;

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 1 - ukuran hash: 32 - ukuran hash: 43 - ukuran hash: 3