Oi Márcio, tudo bem?<br><br>Voltei! Então... após várias tentativas, debugs e verificação de logs, consegui navegar pelo servidor IBM através do Perl com Expect. Muito legal mesmo! Obrigado pelas dicas iniciais! Agora, cheguei na fase de capturar algumas informações e gravá-las em banco de dados.<br>
<br>Vejo nos arquivos de logs o resultado da função ascii do s3270. Como faço para pegar alguns dados (não é o print da tela 0,0,24,80 completo) e armazeno em banco? Pelo Perl e Expect isso é possível de ser feito no mesmo tempo que navega-se pelas telas do MainFrame IBM?<br>
<br>Hoje meu código é algo assim:<br><br><br><span style="font-family:courier new,monospace">#!/usr/bin/perl<br><br>my @s3270 = s3270;<br><br>use strict;<br>use warnings;<br>use Expect;<br><br>my $exp = Expect->spawn('s3270');<br>
<br>$exp->log_file('teste.log');<br><br>my $cmd1 = "connect(<a href="http://12.234.123.3:23">12.234.123.3:23</a>)\n";<br>$cmd1 .= "wait(InputField)\n";<br>$cmd1 .= "String(username)\n";<br>
$cmd1 .= "Enter()\n";<br>$cmd1 .= "wait(InputField)\n";<br>$cmd1 .= "String(password)\n";<br>$cmd1 .= "Enter()\n";<br>$cmd1 .= "wait(InputField)\n";<br>$cmd1 .= "String(APL)\n";<br>
$cmd1 .= "Enter()\n";<br>$cmd1 .= "wait(InputField)\n";<br>$cmd1 .= "String(CODAPL)\n";<br>$cmd1 .= "Enter()\n";<br>$cmd1 .= "pf(3)\n"; #TELA INCIAL APL -> VAI PARA CONSULTAS<br>
$cmd1 .= "wait(InputField)\n";<br>$cmd1 .= "String(14)\n";<br>$cmd1 .= "Enter()\n";<br>$cmd1 .= "wait(InputField)\n";<br>$cmd1 .= "String(01)\n";<br>$cmd1 .= "Enter()\n";<br>
$cmd1 .= "String(ordemserv12tt)\n";<br>$cmd1 .= "Enter()\n";<br>$cmd1 .= "Ascii(0,0,24,80)\n";<br></span><br>Neste ponto, tenho a tela impressa em memória e no log. Como faço, nessa etapa, para capturar alguns dados e armazená-los em banco? Não tenho dificuldades em utilizar DBD ou DBI no perl, minha dificuldade é interagir o perl com os retornos do s3270 e expect. Seria possível me auxiliar? Já agradeço pelo precioso apoio1<br>
<br>Obrigado novamente!<br>Frederico<br><br><br><div class="gmail_quote">2013/3/21 Marcio - Google <span dir="ltr"><<a href="mailto:marciorp@gmail.com" target="_blank">marciorp@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<p>Tiago, nesse caso não. A função "string" é do s3270, e ele entende tudo de forma literal. Também tropecei nisso.</p>
<p>Frederico, isso. Se não me engano, para "entrar" o comando é ENTER.<br>
Se não funcionar posta novamente que vou ver com fiz.</p>
<br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br>