[Cascavel-pm] keypress evento em perl "MELHORADO!"
Luiz Gonzaga
lgonzaga em lncc.br
Quarta Maio 2 06:37:39 PDT 2007
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
Mais detalhes sobre a lista de discussão Cascavel-pm