Perl et bien d'autres langages de programmation utilisent des tableaux pour stocker une liste de données . Cependant , Perl prend également en charge une structure de données spécifique appelée hachage. A associe hachage Perl une valeur particulière avec une clé. Un exemple est le hash { Jan => 31 Apr => 30} , dans lequel un mois est une clé et un nombre de jours est une valeur . Un hachage Perl permet de développer un algorithme simple pour supprimer les doublons d'un tableau. Le sous-programme correspondant a moins de dix commandes en Perl . Instructions
Création d'un sous-programme " Remove_duplicates , " un algorithme
1

obtenir des données de tableau et déclarer un hash " entrées ". Un autre tableau appelé " new_array " contiendra des données non dupliqués. Les étapes 1 à 5 sont illustrés par le code Perl donnée à l'article 2 , étape 3.
2

Attribuer tous les éléments du tableau que les clés de hachage et d'attribuer des valeurs de hachage égaux à 1 pour toutes les touches .

3

boucle à travers tous les éléments du tableau et vérifier la valeur de hachage associée à cet élément.
4

Si la valeur de hachage est 1 ( voir l'étape 3 ) puis l' élément est original ou pas en double et il convient d'ajouter à " new_array . " Dans le même temps, cet élément est marqué , à savoir les changements de valeur de hachage à 0
5

Si la valeur de hachage est 0, alors cet élément a déjà été rencontrés; . C'est à dire qu'il est dupliqué et sauté < . br>
exemple et Perl Programme
6

Supprimer les doublons dans le tableau avec des éléments ( 1 2 6 7 2 9 1 2 6).
7

Imprimer des tableaux initiaux et finaux ( sans doublons )
8

# Section 1 # sous-programme commence
sous remove_duplicates

{ my ($ array , $ new_array ) = @ _; . Étape # 1 . Lire % des entrées de arraymy initiales = (); # Étape 1 . Déclarer le hachage

foreach ( @ $ array ) {next if exists $ entries { $ _ } ; $ entrées { $ _ } = 1; # Étape 2 }

foreach ( @ $ array ) {# étape 3 . Boucle à travers tous ensemble elementsif ( $ entries { $ _ }) { # Etape 5 . L'élément est ignorée si la valeur de hachage est 0.push @ new_array $ , $ _ ; # Etape 4 . Ajouter un élément à la nouvelle matrice uniquement si la valeur de hachage est de 1 $ entries {$ _} = 0; # Etape 4 . L'élément est marqué dire changer la valeur de hachage à 0. } }}

# Subroutine termine

# Section 2Dates $ array = [ QW ( 1 2 6 7 2 9 1 2 6]); # Etape 1: un exemple arraymy new_array $ = []; # remove_duplicates ( $ array , $ new_array ); print " @ tableau $ \\ n"; # ​​Étape 2 . Impression arrayprint initial " @ $ new_array \\ n"; # ​​impression arrayexit final;