Vc pode dar um <code> kill 0 => $pid; </code> e se retornar verdadeiro, quer dizer q o pid ainda está rodando...<br>Agora qto ao goto, vc poderia fazer algo + bonito, anlo como:<br><code><br>sleep 1 while kill 0 => $pid;<br>
</code><br><br>além disso, na minha opinião, ser mais bonito, ainda consome menos processamento...<br><br><div class="gmail_quote">2008/6/17 kleber <<a href="mailto:payback@oi.com.br">payback@oi.com.br</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Olá Pessoal ,<br>
<br>
Estou executando uma função em perl de forma não concorrente ou seja<br>
ela só pode ser reexecutada após encerrar a primeira instância.<br>
<br>
Atualmente estou fazendo assim :<br>
<br>
use warnings;<br>
use strict;<br>
use CGI qw( :standard );<br>
use Fcntl qw( :flock :DEFAULT );<br>
#<br>
######## Permite executar um script pôr vez<br>
#<br>
denovo:<br>
if ( -e "c:\\payback\\cgiaindx.nul" ) { goto denovo; }<br>
sysopen( TASK, "c:\\payback\\cgiaindx.nul", O_WRONLY|O_EXCL|O_CREAT )<br>
or warn ( goto denovo );<br>
flock( TASK, LOCK_EX ) or warn ( goto denovo );<br>
#<br>
######### instruções em perl de uma função qualquer<br>
#<br>
flock( TASK, LOCK_UN );<br>
close( TASK );<br>
unlink( "c:\\payback\\cgiaindx.nul" );<br>
exit;<br>
#<br>
<br>
Gostaria de saber se é possível atingir este mesmo objetivo alocando um<br>
número de processo a variável que controla o pid ( PROCESSO_ID ) E TESTANDO<br>
SUA DISPONIBILIDADE ??????????????????????<br>
<br>
TALVEZ ATÉ MESMO UTILIZANDO UMA VARIÁVEL DE AMBIENTE E TESTANDO SEU STATUS<br>
?????????<br>
<br>
OU UTILIZANDO OUTRO MÉTODO DE CONTROLE ??????????????????<br>
Nota - Meu conhecimento de perl é limitado.<br>
<br>
Agradeço a atenção dispensada ,<br>
<br>
kleber<br>
<br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a>