Énumétation dans un hash

Salut, je voudrais faire qqechose comme ceci
Code:

1 2 3 4 5 6 7 my $largeur = { 2.7 .. 4.11 => 1, 5 .. 6.7 => 2 ... 27 .. 29.1 => 13 }
cependant ca fonctionne pas donc je suis à la méthode comme ceci
Code:

1 2 3 4 my $largeur = { 2.7 => 1, 2.8 => 1, 2.9 => 1, 2.10 => 1, 2.11 => 1, 3 => 1, 3.1 => 1, 3.1 => 1 };
Cependant, il faut que je me rendre jusqu'à 29.1, avec différente valeur pour le hash. Ce qui est très long a écrire alors j'ai penser a une énumération. QQn aurait une idée ?

Perl n'étant pas devin, il ne peut pas plus que nous deviner exactement quels sont les chiffres dans ton intervalle. En effet tu ne sembles pas les incrémenter d'un pas constant, et tes numéros de version s'arrête de façon aléatoire.... Je peux te suggérer plusieurs façon de régler le problème, mais sans les détails sus-cités ces solutions seraient forcément boiteuses.

--
Jedaï

Merci Jedai de bien vouloir m'aidé. Mes chiffres sont des dimension en pied.

J'ai besoin de savoir le nombre de motif dans une porte de 10.4 pied de large. Donc j'avais penser me faire un hash avec toutes les valeur possible.

Cependant j'ai utiliser un module extérieur.

Par exemple dans Garaga.pm j'ai construit 2 sub

Code:

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
 
sub get_panel {
        my $hauteur = shift || confess('No hauteur specified!');
        my $nb_panel;
 
         if ($hauteur >= 6 && $hauteur <= 8) {
                $nb_panel = 4;
        } elsif ($hauteur >= 8.1 && $hauteur <= 10) {
                $nb_panel = 5;
        } elsif ($hauteur >= 10.1 && $hauteur <= 12) {
                $nb_panel = 6;
        } elsif ($hauteur >= 12.1 && $hauteur <= 14) {
                $nb_panel = 7;
        } elsif ($hauteur >= 14.1 && $hauteur <= 16) {
                $nb_panel = 8;
        } elsif ($hauteur >= 16.1) {
                $nb_panel = 9;
        }
 
        return $nb_panel;
}
 
sub get_motif {
        my $largeur = shift || confess('No largeur specified!');
        my $nb_motif;
 
        if ($largeur >= 2.7 && $largeur <= 4.7) {
                $nb_motif = 1;
        } elsif ($largeur >= 4.8 && $largeur <= 6.7) {
                $nb_motif = 2;
        } elsif ($largeur >= 6.8 && $largeur <= 8.8) {
                $nb_motif = 3;
        } elsif ($largeur >= 8.9 && $largeur <= 10.8) {
                $nb_motif = 4;
        } elsif ($largeur >= 10.9 && $largeur <= 12.8) {
                $nb_motif = 5;
        } elsif ($largeur >= 12.9 && $largeur <= 14.9) {
                $nb_motif = 6;
        } elsif ($largeur >= 14.10 && $largeur <= 16.10) {
                $nb_motif = 7;
        } elsif ($largeur >= 16.11 && $largeur <= 18.10) {
                $nb_motif = 8;
        } elsif ($largeur >= 18.11 && $largeur <= 20.11) {
                $nb_motif = 9;
        } elsif ($largeur >= 21 && $largeur <= 22.11) {
                $nb_motif = 10;
        } elsif ($largeur >= 23 && $largeur <= 25) {
                $nb_motif = 11;
        } elsif ($largeur >= 25.1 && $largeur <= 27) {
                $nb_motif = 12;
        } elsif ($largeur >= 27.1) {
                $nb_motif = 13;
        }
 
        return $nb_motif;
 
}

Bref, c'est la seule facon que j'ai réussi a faire fonctionner