Exemplo de uso do módulo Term::InKey

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

[ Hits: 4.037 ]

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

Separando seu código em módulos no Perl

Perl OO & Atributos com Class::Accessor

Usando sub/method signatures no Perl

Calculo de valor futuro - regrassão linear

Muda o wallpaper do X-Windows


  

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