[Rio-pm] Controle de processo em perl
kleber
payback em oi.com.br
Terça Junho 17 10:19:30 PDT 2008
Olá Fernando ,
Agradeço a atenção dispensada.
Moro em Belo Horizonte e obtive informação sobre vocês pesquisando na
internet.
Atualmente estou trabalhando num projeto de prestação de serviços , no
formato de bureau , onde pretendo disponibiliar todos os sistemas
administrativos de uma empresa
( contabilidade , folha de pagamento , suprimentos , controle patrimonial ,
etc ).
Disponho destes sistemas administrativos em ambiente maiframe ( cobol ,
cobol/cics , vsam , etc ) e implementei um projeto piloto do sistema de
contabilidade. ( aproximadamente 120 programas )
É aí que entra o perl ou seja , ele faz a interligação entre o usuário e o
servidor.
Portanto , o ambiente pode ser descrito assim :
- html / javascript -> Possibilita a entrada de dados pelo
usuário
- perl -> captura dados do cliente , grava um arquivo texto para
passagem
ao cobol , executa programa cobol , lê arquivo
resposta do
processamento cobol ( html ) e redireciona ao
usário
- cobol -> Realiza manutenção da base de dados e gera arquivo
html com o
status do processsamento
Conforme disse anteriormente possuo pouca experiência em perl .
( livro perl como programar deitel )
Poderia me dar mais informações sobre sua sugestão ??????????
Conhece alguma fonte de consulta onde eu possa pesquisar ????????
Um abraço ,
kleber
----- Original Message -----
From: "Fernando Oliveira" <fernandocorrea em gmail.com>
To: "Perl Mongers Rio de Janeiro" <rio-pm em pm.org>
Sent: Tuesday, June 17, 2008 10:07 AM
Subject: Re: [Rio-pm] Controle de processo em perl
Vc pode dar um <code> kill 0 => $pid; </code> e se retornar verdadeiro, quer
dizer q o pid ainda está rodando...
Agora qto ao goto, vc poderia fazer algo + bonito, anlo como:
<code>
sleep 1 while kill 0 => $pid;
</code>
além disso, na minha opinião, ser mais bonito, ainda consome menos
processamento...
2008/6/17 kleber <payback em oi.com.br>:
> 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
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
--
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
--------------------------------------------------------------------------------
_______________________________________________
Rio-pm mailing list
Rio-pm em pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
Mais detalhes sobre a lista de discussão Rio-pm