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

[Luiz Gonzaga]

Marcelo, 

Me parece, por favor me corrija se eu estiver errado, que este problema é bem 
semelhante ao problema, para o qual a Veronica Soraia mandou na 
segunda-feira, um email pedindo ajuda.

É o mesmo problema ? 

Luiz.

Em Quarta 02 Maio 2007 09:50, Marcelo escreveu:
> 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

-- 
Luiz G. P. de Almeida
Analista de Sistemas
Laboratório Nacional de Computação Científica / MCT