Discussion :

[Kyp_Durron]

Bonsoir,

voilà j'ai un tableau à 1 dimension, et j'aimerais sortir une de ces valeurs au hasard, j'ai trouvé un vieux post mais il ne marche hélàs pas.

Le tableau est au début du fichier et l'appel du 'rand' dans une procédure (ça ne doit pas impliquer d'erreur ça si ?)

Code :

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

1
2
3
4
 
my @tab = ("Super", "Cool", "Content", "Test", "Etc...");
 
$tab[rand ($#tab + 1)];

Comment peut-on faire un rand sur un tableau ?

Je vous remercie d'avance de l'aide que vous pourrez m'apporter

[Jedai]

En quoi ça ne marche pas ? Ce code marche parfaitement :

Code :

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

1
2
my @tab = ("Super", "Cool", "Content", "Test", "Etc...");
print $tab[rand ($#tab + 1)];

Bien que personnellement, j'aurais plutôt tendance à écrire :

Code :

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

print $tab[rand @tab];

(ça fait exactement la même chose, c'est juste un peu moins lourd)

--
Jedaï

[Kyp_Durron]

Comme je disais avant d'être déconnecté ( :/ ) c'est que cette commande ne marchait pas lorsqu'elle était appliquée pour être renvoyée sur le chan. En bidouillant un peu je me suis aperçu qu'il suffisait 'bêtement' d'allouer la commande à une variable (test que j'avais fait une fois mais qui avait bugué sûrement dû à une erreur de ma part ).
Ca donne donc ceci:

Code :

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

1
2
3
4
5
6
 
my @tab = ("Super", "Cool", "Content", "Test", "Etc...");
 
#Dans la procédure
my $rand = $tab[rand @tab];
$self->privmsg($chan, $rand);   #équivalent du print pour irc

Voilà mais j'ai une autre question à ce propos, peut-on faire en sorte que ce qui sort ne peut pas ressortir lors de l'appel de la commande ?

Ex: $rand donne Cool et lors des appels suivants cela ne donne pas de nouveau Cool ?

Merci

[Schmorgluck]

Voilà mais j'ai une autre question à ce propos, peut-on faire en sorte que ce qui sort ne peut pas ressortir lors de l'appel de la commande ?

Ex: $rand donne Cool et lors des appels suivants cela ne donne pas de nouveau Cool ?

Oui, on peut.

Hein ? Comment ? Ah, euh, en fait il y a vraiment l'embarras du choix.
En utilisant les valeurs du tableau comme clés d'un tableau associatif avec pour valeur un marqueur indiquant s'il peut être utilisé ou pas et s'il ne peut pas, on relance (alambiqué et inefficace).
Ou comme clés d'un tableau associatif à valeurs quelconques, en éliminant l'élément qui vient de sortir (un poil alambiqué aussi).
Ou alors, en retirant du tableau (ou d'une copie) la valeur qui vient de sortir au moyen de l'opérateur splice (bien mieux, déjà).
Ou encore, en mélangeant le tableau à l'avance avec un truc genre @shuffled = sort {int (rand 2) * 2 - 1} @tab;, puis en parcourant séquentiellement la version mélangée. Cette dernière solution-ci à ma préférence, mais c'est très subjectif : je n'ai aucun argument objectif pour la préférer à la précédente, si ce n'est peut-être qu'elle est également très pratique pour mélanger un paquet de cartes, ou équivalent.

Il y a certainement plein d'autres solutions.

[Kyp_Durron]

J'aurais pu penser au splice oui, je vais aller m'acheter des pensées perl
Je vais tenter le tout :o) Par contre, peux-tu m'éclairer sur le:
(rand 2) * 2 - 1 ?

Merci bien

[Schmorgluck]

Oui, ça peut paraître un peu étrange de prime abord. Ça vient de la façon de fonctionner de l'opérateur(*) sort : il attend soit +1, soit 0, soit -1, et en fonction de ça il intervertit ou non les éléments évalués. Partant du principe que si le résultat de la fonction de comparaison est 0, sort s'abstient de toute interversion, pour bien bordéliser mon mélange (ce qui est quand même le but de la manoeuvre), j'ai préféré éliminer la possibilité que le résultat soit 0 (sinon il n'y avait qu'une chance sur trois d'inversion, si j'ai bien compris). D'où le int (rand 2) * 2 - 1 (**), qui vaut soit 1 soit -1, aussi aléatoirement que le permet la fonction rand.

(*) Ou fonction native si vous préfèrez.
(**) Ne pas oublier le int, il est important.