Simples exemplo que demonstra o uso do módulo Term::InKey.

Para instalá-lo:

cpan Term::InKey

Uma versão "equivalente" feita em shell script:

http://slackbr.org/forum/viewtopic.php?f=45&t=18792&sid=577d12a41b0e4d4878a64b5bd8188b06

• Download mascara_senha
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/env perl
#
# Exemplo de uso do modulo 'Term::InKey' 
#
# Mais detalhes: <man perl> e <perldoc Term::InKey>
#
use strict "vars";
use Term::InKey;

my($caracteres, $mascara) = ("", "*");

$| = 'flush'; 

print("Digite a senha: ");

$caracteres = &ReadPassword($mascara);

print("A senha digitada foi \'$caracteres\'\n");

flush;

exit(0);

Separando seu código em módulos no Perl

Usando sub/method signatures no Perl

Perl OO & Atributos com Class::Accessor

Calculo de valor futuro - regrassão linear

R4$T4 Scan - Portscan básico comentado

Nenhum coment�rio foi encontrado.