[Rio-pm] Controle de processo em perl

kleber payback em oi.com.br
Terça Junho 17 06:02:10 PDT 2008


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



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