[Rio-pm] Controle de processo em perl

[marco_lima em sapo.pt]

Salve!

Você tá migrando o ambiente? tá trabalhando com z/OS?

Você deseja fazer o controle dos processos a nível de sistema?

Porque Cobol? o volume de informação é muito grande? você não teria um  
processamento dinâmico?

Se tiver uma ideia melhor do que esta fazendo, talvez podemos ter  
soluções melhores.

Citando kleber <payback  oi.com.br>:

> 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  gmail.com>
> To: "Perl Mongers Rio de Janeiro" <rio-pm  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  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  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  pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm  pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>