[Cascavel-pm] keypress evento em perl "MELHORADO!"

[Marcelo]

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