Exemplo de uso do módulo Term::InKey

Publicado por Sandro Marcell (última atualização em 08/06/2010)

[ Hits: 3.906 ]

Homepage: http://sanmarcell.wordpress.com

Download mascara_senha




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

  



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);

Scripts recomendados

Perl OO & Atributos com Class::Accessor

Usando sub/method signatures no Perl

Calculo de valor futuro - regrassão linear

Separando seu código em módulos no Perl

Alterar senha no shadow


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts