Perl-Hash

Ein Hash ist eine Sammlung von Schlüssel/Wert -Paaren.

Hash-Variablen in Perl beginnen mit einem Prozentzeichen (%).

Auf das Hash-Elementformat zugreifen: ${key} .

Hier ist ein einfaches Hash-Beispiel:

Beispiel

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

Wenn Sie das obige Programm ausführen, lautet das Ausgabeergebnis:

Erstellen Sie einen Hash

Es gibt zwei Möglichkeiten, einen Hash zu erstellen:

1. Legen Sie den Wert für jeden Schlüssel fest

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

2. Einstellung durch Liste

Das erste Element in der Liste ist der Schlüssel und das zweite Element ist der Wert.

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

Sie können auch das Symbol => verwenden, um Schlüssel/Wert festzulegen:

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

Das folgende Beispiel ist eine Variation des obigen Beispiels, bei dem - anstelle von Anführungszeichen verwendet wird:

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

Auf diese Weise können keine Leerzeichen im Schlüssel vorkommen. Die Art und Weise, Elemente zu lesen, ist:

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

Auf Hash-Elemente zugreifen

Zugriff auf das Hash-Elementformat: ${key} . Das Beispiel lautet wie folgt:

Beispiel

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

Wenn Sie das obige Programm ausführen, lautet das Ausgabeergebnis:

Hashwert lesen

Sie können Werte aus einem Hash genau wie aus einem Array extrahieren.

Der Hashwert wird in ein Array-Syntaxformat extrahiert: @{key1,key2} .

Beispiel

#!/uer/bin/perl %data = ( - taobao => 45 , - google => 30 , - codercto => 40 ) ; @array = @data { -taobao , -codercto } ;​​ „ Array: @array n “ ;

Wenn Sie das obige Programm ausführen, lautet das Ausgabeergebnis:

 Array: 45 40

Lesen Sie den Hash-Schlüssel und -Wert

Lesen Sie alle Schlüssel

Mit der Funktion „keys“ können wir alle Schlüssel des Hashs lesen. Die Syntax lautet wie folgt:

 Schlüssel %HASH

Diese Funktion gibt ein Array aller Schlüssel für alle Hashes zurück.

Beispiel

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

Wenn Sie das obige Programm ausführen, lautet das Ausgabeergebnis:

 taobaogooglecodercto

Ebenso können wir die Wertefunktion verwenden, um alle Werte des Hashs zu lesen. Das Syntaxformat ist wie folgt:

 Werte %HASH

Diese Funktion gibt ein Array aller Werte für alle Hashes zurück.

Beispiel

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

Wenn Sie das obige Programm ausführen, lautet das Ausgabeergebnis:

 taobao.comcodercto.comgoogle.com

Überprüfen Sie, ob das Element vorhanden ist

Wenn Sie ein Schlüssel/Wert-Paar lesen, das nicht im Hash vorhanden ist, wird ein undefinierter Wert zurückgegeben und während der Ausführung erscheint eine Warnung.

Um diese Situation zu vermeiden, können wir die Funktion „exists“ verwenden, um festzustellen, ob der Schlüssel existiert, und ihn lesen, wenn er existiert:

Beispiel

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' => ' codercto.com ' , ' taobao ' => ' taobao.com ' ) ; if ( existiert ( $data { ' facebook ' } ) ) { drucken " Die URL von Facebook ist $data {'facebook'} n " ; anders { drucken „ Facebook - Schlüssel existiert nicht n “ }

Wenn Sie das obige Programm ausführen, lautet das Ausgabeergebnis:

 Der Facebook-Schlüssel existiert nicht

Im obigen Code haben wir die IF...ELSE -Anweisung verwendet, die wir in den folgenden Kapiteln ausführlich vorstellen werden.

Hash-Größe ermitteln

Die Hash-Größe ist die Anzahl der Elemente. Wir können die Hash-Größe ermitteln, indem wir zuerst alle Elementarrays mit Schlüssel oder Wert abrufen und dann die Anzahl der Array-Elemente berechnen.

Beispiel

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %data ; $size = @keys ; print " 1 - Hash-Größe: $size n " ; @values ​​​​= Werte %data ; $size = @values ​​​​; print " 2 - Hash-Größe: $size n " ;

Wenn Sie das obige Programm ausführen, lautet das Ausgabeergebnis:

 1 – Hash-Größe: 32 – Hash-Größe: 3

Elemente zu einem Hash hinzufügen oder daraus entfernen

Das Hinzufügen von Schlüssel/Wert-Paaren kann durch einfache Zuweisung erfolgen. Um jedoch ein Hash-Element zu löschen, müssen Sie die Löschfunktion verwenden:

Beispiel

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %data ; $size = @keys ; print " 1 - Hash-Größe: $size n " # Elemente hinzufügen $data { ' facebook ' } = ' facebook.com ' ; @keys = Schlüssel %data ; $size = @keys ; print " 2 - Hash-Größe: $size n " # Elemente aus Hash entfernen löschen $data { ' taobao ' } ; @keys = Schlüssel %data ; $size = @keys ; print " 3 - Hash-Größe: $size n " ;

Wenn Sie das obige Programm ausführen, lautet das Ausgabeergebnis:

 1 - Hash-Größe: 32 - Hash-Größe: 43 - Hash-Größe: 3