[Cascavel-pm] keypress evento em perl "MELHORADO!"
Marcelo
mclpaltrin em gmail.com
Quarta Maio 2 05:50:39 PDT 2007
Turma !
" USUARIO VAI IMFORMAR O VALOR DEPOIS QUE O SCRIPT ESTIVAR RODANDO"
EXEMPLO:
while(1)
{
if(not $socket = (IO::Socket::INET->new(PeerAddr => 'PeerAddr',
PeerPort => 'PeerPort', Proto => "tcp")))
{
$a++;
}
if(not $scket2 = (IO::Socket::INET->new(PeerAddr =>'PeerAddr',
PeerPort => 'PeerPort', Proto => "tcp")))
{
$b++;
}
#TOTAL DE CONEXOES
$cont++;
if(usuario digitar != 1)
{
print "\n";
print "PARA EXIBIR O RESULTADO DIGITE O NUM. 1\n\n";
print "\n";
next;
}
elsif(usario digitou == 1)
{
print "\n";
print "----- RESULTADO -----\n\n";
print "- ERROS EM:".$a."\n";
print "- ERROS EM :".$b."\n";
print "- TOTAL DE CONEXOES :".$cont."\n";
print "\n";
}
sleep(60);
}
--
Marcelo
--
Marcelo
Mais detalhes sobre a lista de discussão Cascavel-pm