Discussion :

[jerem_psg]

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

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
 
#!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 :

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

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

Merci beacoup de votre aide.

[Jedai]

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

Code Perl :

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
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ï

[jerem_psg]

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

[Jedai]

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

Code Perl :

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
#!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ï

[jerem_psg]

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