Discussion :

[Arioch]

Coucou !!!

Sur l'un de mes programmes, j'ai un hachage nommé %Phrase dont chaque clé est un hachage pointant vers un autre hachage. Le dernier hachage possède différentes valeurs sous forme de liste.

Dans chaque liste, j'ai 12 phrases différentes et, pour les besoins d'un tiers programme, je pioche aléatoirement l'une des 12 phrases.

Mon seul soucis, c'est que je suis obligé de faire un random sur une fourchette comprise entre 1 et 12 mais j'aimerais bien rajouter plein de phrases dans certaines clés. Aussi, le max du random ne serait plus 12 mais 18 ou 24 par exemple.

Et c'est là mon soucis : je ne tiens absolument pas à gérer ces bibliothèques de phrases dont le nombre dépasserait 12 à part dans un autre random. Mais comment faire pour demander (sans que le temps d'exécution du programme n'en pâtisse) à Perl de faire du random sur la fourchette en descendant la borne supérieure de 1 s'il ne trouve pas de phrase à l'indice choisi par le random ?

Je ne sais pas si c'est bien clair, c'est surtout pas évident à expliquer

Qqun a une idée à m'exposer ?

Edit : pour faire plus simple, admettons ce hachage là :

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
use strict;
 
my %hash;
 
$hash{TOTO}[0] = "une phrase";
$hash{TOTO}[1] = "une phrase";
$hash{TOTO}[2] = "une phrase";
$hash{TOTO}[3] = "une phrase";
$hash{TITI}[0] = "une phrase";
$hash{TITI}[1] = "une phrase";
$hash{TITI}[2] = "une phrase";
$hash{TITI}[3] = "une phrase";
$hash{TATA}[0] = "une phrase";
$hash{TATA}[1] = "une phrase";
$hash{TATA}[2] = "une phrase";
$hash{TATA}[3] = "une phrase";
$hash{TATA}[4] = "une phrase";
$hash{TATA}[5] = "une phrase";
$hash{TATA}[6] = "une phrase";
$hash{TATA}[7] = "une phrase";

Dans mon exemple, la borne supérieure maximale est 7 (0 pour la borne inférieure).

A part faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
$_ = rand(7);
while(! defined($hash{ma_cle_recherchee}[$_]))
{
    --$_;
}
print "$hash{ma_cle_recherchee}[$_]\n";

Y a-t-il un autre moyen ?

[Arioch]

A lire après avoir ingurgité le précédent post

Pour rendre le truc un poil plus ardu, j'ai dit que mon hachage était un hachage de hachage de liste ? Exact, car je suis contraint de gérer selon le cas des phrases dont le contexte est au masculin OU au féminin.

Si je reprend mon exemple ci-dessus, j'ai trés exactement ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$hash{TOTO}->{1}[0] = "une phrase au MASCULIN à l'indice 0";
$hash{TOTO}->{2}[0] = "une phrase au FEMININ à l'indice 0";

Sachant que bon nombre de phrases au féminin n'existent pas et que dans ce cas je me rabats sur la version masculine.

[Gad29]

Mes faibles connaissances m'ont posé pas mal de difficultée pour comprendre ton post.
Un regard éxtérieur est toujours bénéfique je pense

En gros tu voudrais savoir si il y a une autre maniére de faire plutot que de décrémenter le resultat de ton random jusqu'a obtenir un phrase ? ? en obtimisant le code

Ou alors c'est cette operation du random que tu n'arrive pas a réaliser

[Arioch]

En gros tu voudrais savoir si il y a une autre maniére de faire plutot que de décrémenter le resultat de ton random jusqu'a obtenir un phrase ? ? en obtimisant le code

C'est ça

[Gad29]

Je m'excuse d'avance si mon idée peut paraitre dérisoire.

Aurais tu penser a réaliser un hashaje (un de plus) qui aurait comme clé le nom de te liste et comme "contenu" le nombre de phrases cela te permetterais de changer en conséquant le nombre maximum du random.

Aprés je ne sait pas dir si réaliser un tel hashaje serait plus lourd niveau éxécution du programme plutot que de décrémenter

[Jedai]

On peut toujours savoir combien d'éléments se trouve dans un tableau, @tableau en contexte scalaire donne le nombre d'éléments dans le tableau, donc rand(@tableau) donne un indice valide du tableau.
Dans ton cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my $ind = rand(@{$hash{ma_cle_recherchee}});
 
print "$hash{ma_cle_recherchee}[$ind]\n";

--
Jedaï

[Arioch]

Je m'excuse d'avance si mon idée peut paraitre dérisoire.

Aurais tu penser a réaliser un hashaje (un de plus) qui aurait comme clé le nom de te liste et comme "contenu" le nombre de phrases cela te permetterais de changer en conséquant le nombre maximum du random.

Aprés je ne sait pas dir si réaliser un tel hashaje serait plus lourd niveau éxécution du programme plutot que de décrémenter

Tu n'as pas à t'excuser, ton idée n'est pas dérisoire et peut même être une piste à étudier en complément de ce que Jedai a écrit.



PS : n'hésite pas à donner tes idées sur le forum. On a tous des niveaux de connaissance/maîtrise différents en Perl et puis ne t'inquiètes pas, Jedai a suffisamment à faire avec moi pour qu'il te laisse tranquille peinard dans ton coin