Discussion :

[Kyp_Durron]

Bonjour,

voilà en ce moment je code un bot en Perl pour de l'IRC. Mais pour une commande j'ai besoin d'un tableau associatif qui gagne une ligne à chaque fois que la commande est exécutée...
Cette commande prend en clé ' $nick ' (le nick de l'user qui tape la commande) et en valeur un nombre par défaut (par exemple 10).

Est-il possible (et si oui comment ?) de créer un tableau associatif qui gagne une ligne à chaque fois que la commande est éxécutée ?

Je vous remercie d'avance

[Jedai]

Tous les tableaux associatifs sont "dynamiques" par défaut (sauf si tu gèles leurs clés avec Hash::Util::lock_keys()), il suffit d'affecter à la nouvelle clé :

Code :

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

$hash{$newkey} = $newvalue;

--
Jedaï

[Kyp_Durron]

Hmmm ok, mais avant d'ajouter cette ligne je dois tout de même créer le tableau non ?

En fait dans mon code, ce tableau se construit après un 'if' normalement. Et je penses que le problème vient de là en fait, car il doit se récréer à chaque fois que les conditions sont remplies non ?

Le code:

Code :

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

1
2
3
4
5
 
if ($test eq "!test") {
  my $value = 10;
  my %hash = ($nick, $value);
}

[Kyp_Durron]

Je viens de me rendre compte de l'énormité de mon post précédent Autant pour moi j'étais dans la brume encore :p

J'ai modifié le code qui marche mais m'indique une erreur (qui n'influe pas sur le résultat mais qui fait pas très 'propre'):

Code :

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

1
2
3
4
5
6
7
 
my %hash = (my $newkey, my $newvalue);
 
if ($test eq "!test") {
  $newvalue = 10;
  $hash{my $newkey} = $newvalue;
}

Il m'indique que j'utilise des variables non initialisées ($newkey et $newvalue je pense). Y a-t-il moyen de supprimer cette ligne 'avertissement' ou non ?

L'erreur:

'Use of uninitialized value in ligne assignment '

EDIT: Décidemment aujourd'hui je suis vraiment à l'ouest :/ J'ai réglé le problème ^^

Code :

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

1
2
3
4
5
6
7
 
my %hash;
 
if ($test eq "!test") {
  my $newvalue = 10;
  $hash{ my $newkey} = $newvalue;
}

Merci de l'aide Jedai en tout cas

[Jedai]

EDIT: Décidemment aujourd'hui je suis vraiment à l'ouest :/ J'ai réglé le problème ^^

Code :

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

1
2
3
4
5
6
7
 
my %hash;
 
if ($test eq "!test") {
  my $newvalue = 10;
  $hash{ my $newkey} = $newvalue;
}

Merci de l'aide Jedai en tout cas

De rien, mais ton dernier code a encore un problème : $newkey n'est pas initialisé, ce qui signifie que tu associe $newvalue à la chaine vide, je ne suis pas sûr que ce soit ce que tu veux vraiment faire ?

--
Jedaï

[Schmorgluck]

Mais, quel résultat cherches-tu à obtenir, au juste ? Parce que j'ai beau relire tes explications, je ne comprends pas bien. Tu es au courant que les clés, dans un tableau associatif, sont uniques, n'est-ce pas ? Par conséquent, il n'y aura pas une nouvelle entrée chaque fois que ta commande sera utilisée, mais uniquement la première fois que ta commande sera entrée par un utilisateur donné. Si un utilisateur utilise plusieurs fois la commande, ça ne fera en tout et pour tout qu'une seule entrée pour lui, une entrée maximum par utilisateur. Est-ce bien le résultat que tu veux obtenir ?

[Kyp_Durron]

Oui oui je veux une seule entrée pour chaque nick en fait donc c'est bien ça oui Comme c'est pour une sorte de jeu de cartes, je sélectionne les joueurs ainsi.

Jedai > oui en effet, j'ai attribué le nick à $newkey en fait

Code :

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

1
2
3
4
5
6
7
8
 
my %hash;
 
if ($test eq "!test") {
  my $newvalue = 10;
  my $newkey = $nick;
  $hash{$newkey} = $newvalue;
}

Ca marche très bien maintenant

[Jedai]

Oui oui je veux une seule entrée pour chaque nick en fait donc c'est bien ça oui Comme c'est pour une sorte de jeu de cartes, je sélectionne les joueurs ainsi.

Jedai > oui en effet, j'ai attribué le nick à $newkey en fait

Code :

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

1
2
3
4
5
6
7
8
 
my %hash;
 
if ($test eq "!test") {
  my $newvalue = 10;
  my $newkey = $nick;
  $hash{$newkey} = $newvalue;
}

Ca marche très bien maintenant

Tant mieux ! Mais tu n'as pas besoin de créer tant de variables temporaires, ça obscurcit l'intention plus qu'autre chose :

Code :

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

1
2
3
4
5
6
 
my %hash;
 
if ($test eq "!test") {
  $hash{$nick} = 10;
}

--
Jedaï

[Kyp_Durron]

Certes certes Je suis parfois excessifs dans les variables mais certaines vont être ré-utilisées derrière...