Márcio! Você tem toda razão! Realmente estou muito sobrecarregado mas, estou em fase de finalização da outra demanda. Por incrível que pareça, essa pequena ajuda que me deu no exemplo abaixo irá ajudar bastante! Vou anotar aqui e acompanhar pela sua explicação. Tão logo finalize e coloque em produção o outro sistema, irei me aprofundar com dedicação exclusiva para a automação do IBM e, seu exemplo vai ajudar muito.<br>
<br>Muito obrigado pela explicação de cada linha! Esclareceu bastante! Muito obrigado e desculpe o incômodo! Com certeza, dentro em breve contatarei o forum novamente e, se não se incomodar, vou lhe perguntar outras coisas mas, preciso caminhar sozinho para ver as dúvidas!<br>
<br>Muito obrigado Márcio!<br><br>Abc,<br>Frederico<br><br><div class="gmail_quote">2013/3/13 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">
Frederico,<div><br></div><div> Desculpe-me, mais se você não arrumar tempo para tentar e tentar, não vai evoluir mesmo. Isso que está fazendo é bem complicado mesmo, e não tem receita de bolo, pois quase ninguém usa, além do que como se trata de posicionamento de tela e tal, vária de ambiente para ambiente, não tenho como fazer por você.</div>
<div><br></div><div> Sobre o usuário e senha:</div><div><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> my $exp = </span><span style="background-color:rgb(255,255,204);color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px">Expect</span><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">->spawn('s3270'); ## </span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> my $cmd1 = "connect(</span><a href="http://10.1.8.192:23/" style="color:rgb(17,85,204);font-size:13px;font-family:arial,sans-serif" target="_blank">10.1.8.192:23</a><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">)\n";</span><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> ## Conectei no servidor, esse ai é o IP.</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> $cmd1 .= "wait(InputField)\n";</span><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> ## Aqui estou aguardando um campo de entrada, no meu caso o cursor já cai no campo do usuário</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> $cmd1 .= "String(usertest)\n";</span><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> ## Aqui eu "digito" na tela do terminal o nome do usuário, no meu caso é "usertest"</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> $cmd1 .= "wait(InputField)\n";</span><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> ## Aguardo o próximo campo de entrada, que no meu caso é a senha. Como no meu ambiente todos os usuário tem tamanho fixo e ocupam o campo todo, quando insiro o nome do usuário o cursor do terminal já cai para o próximo campo, que é a senha</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> $cmd1 .= "String(passtest)\n";</span><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> ## Digito a senha, que no meu caso é "passtest"</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> $cmd1 .= "Ascii(0,0,24,80)\n";</span><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"> ## Leio a tela</span></div>
<div><br></div><div> Aquele código do histórico tem tudo que você precisa para fazer os primeiros e segundos testes. A documentação do s3270 tem os comando que você precisa para interagir com o terminal, isso não é Perl, é TN3270.</div>
<div> A explicação do Eden também vai ajudar muito a tratar as primeiras saídas.</div><div><br></div><div> Depois disso, poste as dificuldades, de preferência com o código que você usou e os erros ou dúvidas.</div><div>
<br></div><div><br>[...]'s<span class="HOEnZb"><font color="#888888"><br><br>Marcio
</font></span></div>
<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>