[SP-pm] alarm()

Thomas Britis thomas em tcnet.com.br
Terça Janeiro 29 07:09:30 PST 2008


Olá Otávio,

	Infelizmente não deu certo.

	Quando o alarm() "estoura" ele dá erro, veja:

$ perl d.pl
Exiting subroutine via next at d.pl line 15.
Exiting eval via next at d.pl line 15.
Label not found for "next ALRM" at d.pl line 15.

	Adicionei um 'sub busca_info { sleep 10; }' para reproduzir o erro.

	Abraços e obrigado.

Otávio Fernandes wrote:
> Thomas,
> 
> É simples, basta vc informar ao "next" de qual loop vc quer, veja:
> 
> ALRM: for (0..10) {
>   local $SIG{ARLM} = sub { next ALRM; };
>   alarm 5;
>   $info = &busca_info ($_);
>   &processa ($info, $_);
>    alarm 0;
> }
> 
> Acredito que já deve ser o suficiente.
> 
> Para maiores informações, veja: $ perldoc -f next
> 
> um abraço,
> 

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA


Mais detalhes sobre a lista de discussão SaoPaulo-pm