[Cascavel-pm] Controle de processo em perl
Igor Sutton Lopes
igor.sutton em gmail.com
Domingo Abril 8 14:38:10 PDT 2007
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
Mais detalhes sobre a lista de discussão Cascavel-pm