Bom, eu acho q vc já começou bem procurando a lista. Um bom inicio na minha opinião,<br>seria o livro begining perl (<a href="http://www.perl.org/books/beginning-perl/">http://www.perl.org/books/beginning-perl/</a>) (vc pode ver esse e N<br>
outros livros na nossa sessão de livros e resenhas (<a href="http://rio.pm.org/livros.pl)">http://rio.pm.org/livros.pl)</a>). Uma outra<br>importante fonte de pesquisa é o perldoc (para saber mais sobre o kill, leia o perldoc -f kill,<br>
para saber de outras funções, perldoc perlfunc).<br>Eu gostaria de fazer uma pergunta, a única forma de entrada para esses programas em cobol<br>seria por arquivo?<br>Bom, mas perguntas estamos aí!<br>E seja bem vindo!<br>
<br><div class="gmail_quote">2008/6/17 kleber <<a href="mailto:payback@oi.com.br">payback@oi.com.br</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Olá Fernando ,<br>
<br>
Agradeço a atenção dispensada.<br>
Moro em Belo Horizonte e obtive informação sobre vocês pesquisando na<br>
internet.<br>
<br>
Atualmente estou trabalhando num projeto de prestação de serviços , no<br>
formato de bureau , onde pretendo disponibiliar todos os sistemas<br>
administrativos de uma empresa<br>
( contabilidade , folha de pagamento , suprimentos , controle patrimonial ,<br>
etc ).<br>
<br>
Disponho destes sistemas administrativos em ambiente maiframe ( cobol ,<br>
cobol/cics , vsam , etc ) e implementei um projeto piloto do sistema de<br>
contabilidade. ( aproximadamente 120 programas )<br>
<br>
É aí que entra o perl ou seja , ele faz a interligação entre o usuário e o<br>
servidor.<br>
Portanto , o ambiente pode ser descrito assim :<br>
<br>
- html / javascript -> Possibilita a entrada de dados pelo<br>
usuário<br>
- perl -> captura dados do cliente , grava um arquivo texto para<br>
passagem<br>
ao cobol , executa programa cobol , lê arquivo<br>
resposta do<br>
processamento cobol ( html ) e redireciona ao<br>
usário<br>
- cobol -> Realiza manutenção da base de dados e gera arquivo<br>
html com o<br>
status do processsamento<br>
<br>
Conforme disse anteriormente possuo pouca experiência em perl .<br>
( livro perl como programar deitel )<br>
Poderia me dar mais informações sobre sua sugestão ??????????<br>
Conhece alguma fonte de consulta onde eu possa pesquisar ????????<br>
<br>
Um abraço ,<br>
<font color="#888888"><br>
kleber<br>
</font><div><div></div><div class="Wj3C7c"><br>
<br>
<br>
<br>
----- Original Message -----<br>
From: "Fernando Oliveira" <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>><br>
To: "Perl Mongers Rio de Janeiro" <<a href="mailto:rio-pm@pm.org">rio-pm@pm.org</a>><br>
Sent: Tuesday, June 17, 2008 10:07 AM<br>
Subject: Re: [Rio-pm] Controle de processo em perl<br>
<br>
<br>
Vc pode dar um <code> kill 0 => $pid; </code> e se retornar verdadeiro, quer<br>
dizer q o pid ainda está rodando...<br>
Agora qto ao goto, vc poderia fazer algo + bonito, anlo como:<br>
<code><br>
sleep 1 while kill 0 => $pid;<br>
</code><br>
<br>
além disso, na minha opinião, ser mais bonito, ainda consome menos<br>
processamento...<br>
<br>
2008/6/17 kleber <<a href="mailto:payback@oi.com.br">payback@oi.com.br</a>>:<br>
<br>
> Olá Pessoal ,<br>
><br>
> Estou executando uma função em perl de forma não concorrente ou seja<br>
> ela só pode ser reexecutada após encerrar a primeira instância.<br>
><br>
> Atualmente estou fazendo assim :<br>
><br>
> use warnings;<br>
> use strict;<br>
> use CGI qw( :standard );<br>
> use Fcntl qw( :flock :DEFAULT );<br>
> #<br>
> ######## Permite executar um script pôr vez<br>
> #<br>
> denovo:<br>
> if ( -e "c:\\payback\\cgiaindx.nul" ) { goto denovo; }<br>
> sysopen( TASK, "c:\\payback\\cgiaindx.nul", O_WRONLY|O_EXCL|O_CREAT )<br>
> or warn ( goto denovo );<br>
> flock( TASK, LOCK_EX ) or warn ( goto denovo );<br>
> #<br>
> ######### instruções em perl de uma função qualquer<br>
> #<br>
> flock( TASK, LOCK_UN );<br>
> close( TASK );<br>
> unlink( "c:\\payback\\cgiaindx.nul" );<br>
> exit;<br>
> #<br>
><br>
> Gostaria de saber se é possível atingir este mesmo objetivo alocando um<br>
> número de processo a variável que controla o pid ( PROCESSO_ID ) E<br>
> TESTANDO<br>
> SUA DISPONIBILIDADE ??????????????????????<br>
><br>
> TALVEZ ATÉ MESMO UTILIZANDO UMA VARIÁVEL DE AMBIENTE E TESTANDO SEU<br>
> STATUS<br>
> ?????????<br>
><br>
> OU UTILIZANDO OUTRO MÉTODO DE CONTROLE ??????????????????<br>
> Nota - Meu conhecimento de perl é limitado.<br>
><br>
> Agradeço a atenção dispensada ,<br>
><br>
> kleber<br>
><br>
> _______________________________________________<br>
> Rio-pm mailing list<br>
> <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
><br>
<br>
<br>
<br>
--<br>
Just another Perl Hacker,<br>
Fernando (SmokeMachine)<br>
<a href="http://perl-e.org" target="_blank">http://perl-e.org</a><br>
<br>
<br>
<br>
</div></div>--------------------------------------------------------------------------------<br>
<div><div></div><div class="Wj3C7c"><br>
<br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
<br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a>