[Cascavel-pm] Controle de processo em perl

[Igor Sutton Lopes]

On 2007/04/08, at 14:30, KLEBER wrote:

> Caro Marco ,
>
> Agradeço sua atenção.
>
> Em perl , é possível definir um numero de identificação de processo  
> para uma
> determinada rotina ?
> Se fôr possível  , ficaria simples fazer o que preciso.
> Pôr exemplo (  pensando alto ) :
> #
> # Rotina de autorização de usuario
> #
> Define pid com 250
> testa se pid 250 está disponível
> Se não disponível => aguarda disponibilidade
> Se disponível => executa rotina

<code>
use strict;
use warnings;

use File::Slurp;

# define o arquivo para output. a variavel $$ devolve o numero do  
processo
# corrente.
my $output = qq{/tmp/output_$$.txt};

# monta a linha de comando para executar o programa cobol, passando  
todos os
# argumentos necessarios.
my @command = ( '/usr/local/bin/my-cobol-program', '--output',  
$output );

# executa o comando definido anteriormente, e verificando se o  
resultado dele
# foi correto. caso nao tenha sido, morre e informa o erro.
system(@command) == 0
   or die "system @command failed: $?";

# imprime na tela o resultado do arquivo.
print read_file($output);

END {

     # remove o arquivo de saida caso exista.
     unlink $output if -f $output;
}


</code>

Boa sorte!

--
Igor Sutton
igor.sutton em gmail.com



-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070408/78634529/attachment.html 
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : PGP.sig
Tipo  : application/pgp-signature
Tam   : 186 bytes
Descr.: This is a digitally signed message part
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20070408/78634529/attachment.bin