Hachage Perl

Un hachage est une collection de paires clé/valeur .

Les variables de hachage en Perl commencent par un signe de pourcentage (%).

Accéder au format de l'élément de hachage : ${key} .

Voici un exemple de hachage simple :

Exemple

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

En exécutant le programme ci-dessus, le résultat de sortie est :

Créer un hachage

Il existe deux manières de créer un hachage :

1. Définir la valeur pour chaque clé

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

2. Paramétrage via la liste

Le premier élément de la liste est la clé et le deuxième élément est la valeur.

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

Vous pouvez également utiliser le symbole => pour définir la clé/valeur :

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

L'exemple suivant est une variante de l'exemple ci-dessus, utilisant - au lieu de guillemets :

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

De cette façon, les espaces ne peuvent pas apparaître dans la clé. La façon de lire les éléments est la suivante :

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

Accéder aux éléments de hachage

Format de l'élément de hachage d'accès : ${key} , l'exemple est le suivant :

Exemple

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

En exécutant le programme ci-dessus, le résultat de sortie est :

Lire la valeur de hachage

Vous pouvez extraire les valeurs d'un hachage comme d'un tableau.

La valeur de hachage est extraite dans un format de syntaxe de tableau : @{key1,key2} .

Exemple

#!/uer/bin/perl %données = ( - taobao => 45 , - google => 30 , - codercto => 40 ) ; @array = @data { - taobao , - codercto } ; " Tableau : @tableau n " ;

En exécutant le programme ci-dessus, le résultat de sortie est :

 Tableau : 45 40

Lire la clé de hachage et la valeur

Lire toutes les clés

On peut utiliser la fonction keys pour lire toutes les clés du hachage. La syntaxe est la suivante :

 clés% HASH

Cette fonction renvoie un tableau de toutes les clés pour tous les hachages.

Exemple

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

En exécutant le programme ci-dessus, le résultat de sortie est :

 taobaogooglecodercto

De même, on peut utiliser la fonction valeurs pour lire toutes les valeurs du hachage. Le format de syntaxe est le suivant :

 valeurs% HASH

Cette fonction renvoie un tableau de toutes les valeurs pour tous les hachages.

Exemple

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

En exécutant le programme ci-dessus, le résultat de sortie est :

 taobao.comcodercto.comgoogle.com

Vérifier si l'élément existe

Si vous lisez une paire clé/valeur qui n'existe pas dans le hachage, une valeur non définie sera renvoyée et un avertissement apparaîtra lors de l'exécution.

Afin d'éviter cette situation, nous pouvons utiliser la fonction exist pour déterminer si la clé existe et la lire lorsqu'elle existe :

Exemple

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' => ' taobao.com ' ) si ( existe ( $data { ' facebook ' } ) ) { imprimer " L'URL de Facebook est $data {'facebook'} n " } autre { imprimer " La clé Facebook n'existe pas n " }

En exécutant le programme ci-dessus, le résultat de sortie est :

 la clé Facebook n'existe pas

Dans le code ci-dessus, nous avons utilisé l'instruction IF...ELSE , que nous présenterons en détail dans les chapitres suivants.

Obtenir la taille du hachage

La taille de hachage est le nombre d'éléments. Nous pouvons obtenir la taille de hachage en obtenant d'abord tous les tableaux d'éléments de clé ou de valeur, puis en calculant le nombre d'éléments du tableau. L'exemple est le suivant :

Exemple

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %données ; $size = @keys ; imprimer " 1 - Taille de hachage : $size n " ; @values ​​​​= valeurs %données ; $size = @values ; imprimer " 2 - Taille de hachage : $size n " ;

En exécutant le programme ci-dessus, le résultat de sortie est :

 1 - Taille de hachage : 32 - Taille de hachage : 3

Ajouter ou supprimer des éléments d'un hachage

L’ajout de paires clé/valeur peut être effectué via une simple affectation. Mais pour supprimer un élément de hachage, vous devez utiliser la fonction delete :

Exemple

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %données ; $size = @keys ; imprimer " 1 - Taille du hachage : $size n " # Ajouter des éléments $data { ' facebook ' } = ' facebook.com ' ; @keys = clés %données ; $size = @keys ; imprimer " 2 - Taille du hachage : $size n " ; Supprime les éléments du hachage supprimer $data { ' taobao ' } ; @keys = clés %données ; $size = @keys ; imprimer " 3 - Taille de hachage : $size n " ;

En exécutant le programme ci-dessus, le résultat de sortie est :

 1 - taille de hachage : 32 - taille de hachage : 43 - taille de hachage : 3