[Rio-pm] Controle de processo em perl

[kleber]

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