ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Oleg Strelchenko 2:5024/73 20 Nov 2002 18:06:20
To : All
Subject : Скрыть STDOUT
--------------------------------------------------------------------------------
Hикак не могу сделать скрипт авторизации работающей по socket! :-(
Т.е. Скрипт висит на каком либо потру и читает STDIN.
Хочется скрыть STDOUT!
Вот мой пример:
>----- auth.pl -----
#!/usr/local/bin/perl
#[...]
while( $Result eq "ERR" ){
print "Login: ";
while(<>){ # Считываем STDIN
$user =~ s/\ //g;
$user = "$_";
last;
}
print "Password: ";
#system "stty -echo"; # При локальном вызове работает!
while(<>){ # Считываем STDIN
$password="$_";
last;
#system "stty echo"; # При локальном вызове работает!
}
$Result = &checkpasswd($user, $password );
}
sub checkpasswd{
#[...]
$Result = "OK";
}
>----- auth.pl -----
Может кто что-то посоветует?!
Всего доброго !!!
Oleg
--- GoldED/LNX 3.0.1-asa10 beta 2
* Origin: [HAM-RADIO BBS-Vladimir/Russia] (2:5024/73)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
