Discussion :

[mamax29]

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

[Beniou]

Bizarre chez moi cela fonctionne ... Ou alors je n'ai pas comprsi ce que tu voulais

Ex de sortie de ton prog :

----------------------------------------------------------------
Enter the column number of the data corresponding at presure start : 1
Clef=presure start Valeur=1
----------------------------------------------------------------
Enter the column number of the data corresponding at time : 2
Clef=time Valeur=2
----------------------------------------------------------------
Enter the column number of the data corresponding at date : 3
Clef=date Valeur=3
----------------------------------------------------------------
Enter the column number of the data corresponding at boat name : 4
Clef=boat name Valeur=4
----------------------------------------------------------------
Enter the column number of the data corresponding at lognote : 1
Clef=lognote Valeur=1
----------------------------------------------------------------

[mamax29]

Sisi c'est bien ce que je voulais....


Mais j'ai plus ou moins trouvé: via Cygwin, cela ne fonctionne pas, mais avec une simple console MSDOS cela fonctionne, va savoir...

Comme ce script est dédié à tourner sous mac, je ne m'en inquiète pas pour le moment.

[Beniou]

Ok ...

Sinon, peut être que l'utilisation du module Term::UI peut être utile histoire d'être portable...
-> tuto

[Philou67430]

Le script fonctionne parfaitement sous Cygwin...

[mamax29]

Mistère, Mistère.....


Bref, c'est pas grave que cela ne fonctionne pas sur mon PC avec Cygwin,
Ce script est prévu pour mon mac et il fonctionne très bien à bas.

Bref, la flemme de chercher pourquoi ;-)

[Philou67430]

C'est peut-être lié à la configuration de Cygwin et du marqueur de fin de fichier texte par défaut (\n ou \r\n), qui ferait que <STDIN> ait un fonctionnement erratique.