Bonjour,

J'ai une table de hachage initialisée comme ci-dessous:

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
 
my %data = (	"date"							=> "",
							"time"							=> "",
							"dive number"				=> "",
							"depth"							=> "",
							"dive duration"			=> "",
							"diver name"				=> "",
							"country"						=> "",
							"location"					=> "",
							"site"							=> "",
							"weather"						=> "",
							"water visibility"	=> "",
							"air temp"					=> "",
							"water temp"				=> "",
							"buddie"						=> "",
							"divemaster"				=> "",
							"boat name"					=> "",
							"presure start"			=> "",
							"presure end"				=> "",
							"gas mode"					=> 0,
							"o2 percent"				=> "",
							"lognote"						=> "", );
Je souhaite faire une boucle demandant à l'utilisateur de compléter tous les champs:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
my $input;
 
foreach my $k (keys(%data))
{
	print "----------------------------------------------------------------\n";
	print "Enter the column number of the data corresponding at $k : ";
	$input = <STDIN>;
	chomp $input;
	$data{$k} = $input;
	print "Clef=$k Valeur=$data{$k}\n";
}
Mais cela ne fonctionne pas comme je le voudrais:
en fait, le script me demande tous les input d'un coup (sans rien afficher) et ensuite, j'ai tous les prints....