[Rio-pm] Controle de processo em perl

Fernando Oliveira fernandocorrea em gmail.com
Terça Junho 17 06:07:12 PDT 2008


Vc pode dar um <code> kill 0 => $pid; </code> e se retornar verdadeiro, quer
dizer q o pid ainda está rodando...
Agora qto ao goto, vc poderia fazer algo + bonito, anlo como:
<code>
sleep 1 while kill 0 => $pid;
</code>

além disso, na minha opinião, ser mais bonito, ainda consome menos
processamento...

2008/6/17 kleber <payback em oi.com.br>:

> Olá Pessoal ,
>
> Estou executando uma função em perl de forma não concorrente ou seja
> ela só pode ser reexecutada após encerrar a primeira instância.
>
> Atualmente estou fazendo assim :
>
> use warnings;
> use strict;
> use CGI qw( :standard );
> use Fcntl qw( :flock :DEFAULT );
> #
> ########      Permite executar um script pôr vez
> #
> denovo:
> if ( -e "c:\\payback\\cgiaindx.nul" ) { goto denovo; }
> sysopen( TASK, "c:\\payback\\cgiaindx.nul", O_WRONLY|O_EXCL|O_CREAT )
> or warn ( goto denovo );
> flock( TASK, LOCK_EX )  or warn ( goto denovo );
> #
> #########  instruções em perl de uma função qualquer
> #
> flock( TASK, LOCK_UN );
> close( TASK );
> unlink( "c:\\payback\\cgiaindx.nul" );
> exit;
> #
>
> Gostaria de saber se é possível atingir este mesmo objetivo alocando um
> número de processo a variável que controla o pid ( PROCESSO_ID ) E TESTANDO
> SUA DISPONIBILIDADE ??????????????????????
>
> TALVEZ ATÉ MESMO UTILIZANDO UMA VARIÁVEL DE AMBIENTE  E TESTANDO SEU STATUS
> ?????????
>
> OU UTILIZANDO OUTRO MÉTODO DE CONTROLE ??????????????????
> Nota - Meu conhecimento de perl é limitado.
>
> Agradeço a atenção dispensada ,
>
> kleber
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080617/a672cb3e/attachment.html 


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