[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