Tableau [HASH] perl

Bonjour, je suis désolé je ne cesse d'envoyer des messages sur le forum, je ais vous expliquer mon probléme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!usr/perl/bin use strict; use warnings;   my %jeremy=('numero'=>'01535626764'); my %tony=('numero'=>'0143913430'); my %jack=('numero'=>'0163646748'); my %yohan=('numero'=>'0174374839'); print "cmd:"; my $a=<STDIN>; chomp($a); foreach $a(....) { print $a; }

---

Donc voila, j'aimerai que au lieu de

Code:

---

1 2	if ($a eq "jeremy"){}

---

j'aimerai m'exercer en foreach() mais je ne vois pas comment creer la boucle qui parcours les listes, donc le programme pour moi consiste : Si dans cmd: la l'utilisateur entre par exemple jeremy, je veux que automatiquement que tous ce qui se trouvent dans le tableau jeremy s'affiche, mais je ne vois pas trop comment:cry:

Merci beacoup de votre aide.

Ton problème est un problème de conception : tu utilises des variables là où tu devrais utiliser un hash :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!usr/perl/bin use strict; use warnings;   my %persons = (jeremy => {'numero'=>'01535626764'}, tony => {'numero'=>'0143913430'}, jack => {'numero'=>'0163646748'}, yohan => {'numero'=>'0174374839'}, );   print "Personne choisie : "; my $guess = <STDIN>; chomp($guess); if( exists $persons{$guess} ) { my %temp = %{$persons{$guess}}; foreach my $k ( keys %temp) { print "$k : $temp{$k}\n"; } }   __END__

---

Néanmoins ce code utilise un certain nombre de concepts avancé (en particulier les références), consulte notre FAQ, ainsi que la documentation puis reviens nous poser des questions si tu en as encore. ;)

--
Jedaï

AAA oui c'est vrai le code rentre un peu dans la complexité (pour moi) :P je vais analyser de plus prés le code; Merci pour le lien :D
A bientot

Par ailleurs, s'il n'y a qu'une seule information par personne (comme ici, juste le numéro), un hash simple suffit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!usr/perl/bin use strict; use warnings;   my %numeros = (jeremy => '01535626764', tony => '0143913430', jack => '0163646748', yohan => '0174374839', );   print "Personne choisie : "; my $guess = <STDIN>; chomp($guess); if( exists $numeros{$guess} ) { print "Numéro de $guess : $numeros{$guess}\n"; }   __END__

---

--
Jedaï

AA ue c'est bien comme ça j'ai les deux scripts qui pourront m'aider :D merci.