Bonjour,

J'aimerais trouver la plus longue clé de ma hash.
J'ai réussi mais j'aimerais savoir si je n'aurais pas pu faire plus simple en utilisant d'autres fonctions.


PROGRAMME
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#!/usr/local/bin/perl
 
 
use strict;
use warnings;
 
#-------------------- MaxTailleCleHash.pl -----------------------------#
#       Recherche de la clé d'une hash ayant la longueur maximale
#-------------------- MaxTailleCleHash.pl -----------------------------#
 
 
 
# trouver la valeur (valeur 2) pour laquelle la clé est la plus longue (taillemaximale)
my %HashTri = (
                "min" => "value1",
                "taillemaximale" => "value2",
                "moyenne" => "value3",
              );
 
 
 
# Hash contenant comme clé la clé de %HashTri  et comme valeur sa longueur
my %TailleSeq;
# Array contenant les longueurs des différentes clés
my @Taille;
 
print "\nRECHERCHE DE LA PLUS LONGUE CLE DE LA HASH\nCLE\t\t\tVALEUR\n";
foreach my $cle0 (keys %HashTri)
{
        print"$cle0\t\t$HashTri{$cle0}\n";
}
 
 
print "\nCALCUL DES LONGUEURS DES CLES\n";
foreach my $cle (keys %HashTri)
{
        $TailleSeq{$cle}=length($cle);
        push (@Taille, length($cle));
 
        sub par_num { return $a <=> $b }
        @Taille = sort par_num @Taille;
        @Taille = reverse @Taille;
        print "$cle\t".length($cle)."\n";
}
 
print "\nARRAY CONTENANT LES TAILLES DES CLES\n";
print "Array\t";
map ({print "$_\t"} @Taille);
print "\n\n";
print "\nRECHERCHE DE LA TAILLE LA PLUS GRANDE\n";
print "MAX $Taille[0]\n\n";
 
 
 
 
# cle à trouver
foreach my $cle1 (keys %TailleSeq)
{
        if($TailleSeq{$cle1}==$Taille[0])
        {
                print "Ce qu'il fallait trouver\t".$cle1."\t".$HashTri{$cle1}."\n";
        }
}
 
 
 
close;
RESULTAT
RECHERCHE DE LA PLUS LONGUE CLE DE LA HASH
CLE VALEUR
taillemaximale value2
min value1
moyenne value3

CALCUL DES LONGUEURS DES CLES
taillemaximale 14
min 3
moyenne 7

ARRAY CONTENANT LES TAILLES DES CLES
Array 14 7 3


RECHERCHE DE LA TAILLE LA PLUS GRANDE
MAX 14

Ce qu'il fallait trouver taillemaximale value2

Merci,


Jasmine,