SoloCodigo
Programación Web y Scripting => Perl => Mensaje iniciado por: su - en Jueves 6 de Enero de 2005, 19:59
-
Hola, como hago un <STDIN> sin que se vea lo que uno escribe, es decir
#!/usr/bin/perl -w
use strict; print "User => ";
my $a = <STDIN>;
chop $a;
print "Password => ";
my $b = <STDIN>;
chop $b;
Como hacer que la terminal no muestre el <STDIN>?
-
:D Ya se :
#!/usr/bin/perl -w
use strict;
print "User => ";
chomp(my $a = <STDIN>);
print "Password => ";
system "stty -echo";
chomp(my $b = <STDIN>);
if ($a eq 'mall' && $b eq 'nopo'){print "Funciona\n";}
if ($a eq 'root' && $b eq 'lll'){print "funciona!\n";}
if ($a eq 'mall' && $b ne 'nopo' ){print "Permizo denegado\n";};
if ($a eq 'root' && $b ne 'llll'){print "acces denieg\n";}
system "stty echo";