Discussion :

[Cyspak]

Bonjour,

j'utilise la commande binmode dans un bout de code que j'ai trouvé qui sert à saisir un password en caché :

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
28
29
30
31
32
33
	$| = 1;	# unbuffer stdout
	my $pwd = '';
	if (0) {
 
		print "Password: ";
		ReadMode ('noecho');
		$pwd = ReadLine ();
		chomp $pwd;
		ReadMode ('restore');
 
	} else {
 
		binmode STDIN;
		print "Password: ";
		ReadMode ('cbreak');
		while (defined (my $ch = ReadKey ())) {
 
			last if $ch eq "\x0a" or $ch eq "\x0d";
			if ($ch eq "\x08") {	# backspace
				print "\b \b" if $pwd;		# back up 1
				chop $pwd;
				next;
			}
			if ($ch eq "\x15") {	# ^U
				print "\b \b" x length $pwd;	# back 1 for each char
				$pwd = '';
				next;
			}
			$pwd .= $ch;
			print '*';
		}
		ReadMode ('restore');
	}

Donc mon problème est le suivant : comment faire l'inverse de binmode pour pouvoir réutiliser la commande <STDIN> en ascii ?

Merci d'avance pour votre aide...

[Jedai]

Binmode te permet de spécifier le mode de lecture du handle en tant que deuxième paramètre (du moins depuis la 5.8 ), la valeur par défaut étant "raw" bien sûr.

[Cyspak]

Ah..... Ah..... mais tu as bien fait de me mettre sur la voie, ca m'a permis de comprendre comment binmode fonctionnait :

2 modes :

Code :

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

1
2
:crlf
:raw

Donc la solution est à mon problème est :

Code :

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

binmode (STDIN, ":crlf");

Merci bien Jedai