[Rio-pm] Controle de processo em perl

[Claudio Pereira]

Kleber,

Eu acho que vi este problema e uma boa discussão sobre na Cascavel-pm
a alguns dias atrás. Por acaso, você é a mesma pessoa e o mesmo
problema?

Se for, Tentou seguir as dicas do Champs e outros lá?

Não utilize GOTO, isso é mais do que ultrapassado! Estruture melhor o
seu código, seguindo os exemplos passados na lista.
Eu já fui um leitor fã do Deitel, mas aconselhos outros livros de
Perl, de preferência os escritos pela O'Reilly.

Alguns livros interessantes para você iniciar:
Perl Cookbook
Perl Best Practices
Programming Perl

[  ]'s Claudio Indio)(

2008/6/17 kleber <payback em 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 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
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
-- 
Claudio Pereira aka IndioX
GentooBR - http://gentoobr.org
mailto: indiox em gentoobr.org
---------------------------------------------
Gentoo Documentation Member
http://gdp.gentoo.org