[Rio-pm] Controle de processo em perl

[Fernando Oliveira]

Bom, eu acho q vc já começou bem procurando a lista. Um bom inicio na minha
opinião,
seria o livro begining perl (http://www.perl.org/books/beginning-perl/) (vc
pode ver esse e N
outros livros na nossa sessão de livros e resenhas (
http://rio.pm.org/livros.pl)). Uma outra
importante fonte de pesquisa é o perldoc (para saber mais sobre o kill, leia
o perldoc -f kill,
para saber de outras funções, perldoc perlfunc).
Eu gostaria de fazer uma pergunta, a única forma de entrada para esses
programas em cobol
seria por arquivo?
Bom, mas perguntas estamos aí!
E seja bem vindo!

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
>



-- 
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080617/5b414e3f/attachment-0001.html