Discussion :

[raphy75]

Bonjour, j'essaie de coder un petit script qui affiche les notes de matiére puis aprés je vais les calculer.
Mais quand je veux afficher le contenu de ma variable, il affiche seulement le dernier resultat :s

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
21
22
23
24
 
#!usr/bin/perl
use strict;
use warnings;
 
my %moy;
print "Choixissez votre matiere\n";
print ">";
my $mat;
$mat=<STDIN>;
chomp($mat);
print "Note sur /20, ecrivez `/stop` pour sortir\n";
while(1)
{
	my $note;
	print ">";
	$note=<STDIN>;
	chomp($note);
	last if $note eq "/stop";
	$moy{$mat}=$note;
}
print "Note en $_:\n" for keys %moy;
my $i;
print "$moy{$_}" for keys %moy;

J'ai du faire n'importe quoi ...

Merci de votre aide.

[Jedai]

Tu serais gentil de reétudier les structures de données en Perl, d'après tes quelques derniers messages j'ai un peu l'impression que tu les utilises au petit bonheur la chance en espérant que nous règlerons le problème quand tu te goures... Je n'ai pas l'intention de te donner un cours sur les structures de donnée en Perl sur le forum, va donc jeter un coup d'oeil à notre FAQ, ainsi qu'à perlreftut et perldsc.

--
Jedaï

[raphy75]

lol Bon d'accord merci comme meme :p ^^