Bonjour escusez moi j'essaie de m'entrainer sur les structure de donnée en perl etc.. mais j'essaie de retournée le nombre de ligne contenu dans un hash mais j'y parvient pas, j'ai essayé de chercher seul avant de poster sur le forum mais je n'y arrive pas désolé.
Merci
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
25
26
27 #! usr/bin/perl use warnings; use strict; my $msg="Entrer les notes de votre matiere\nEntrer '-stop' pour quitter la boucle.\n"; my $alerte="Erreur commande\n"; my %note; print "$msg"; print "Matiere:"; my $mat=<STDIN>; chomp($mat); for(;;) { print "Note:"; my $note=<STDIN>; chomp($note); last if $note eq "-stop"; $note{$note}=$mat; print "Information enregistrees.\n"; } print "$_: $note{$_}\n" for keys %note; my $i=0; for ($i=0;$i<$_;$i++) { print "Il y a $i ligne\n"; }
Partager