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-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> my $exp = </span><span class="il" 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-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">->spawn('s3270'); ## </span><br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> my $cmd1 = "connect(</span><a href="http://10.1.8.192:23/" target="_blank" style="color:rgb(17,85,204);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">10.1.8.192:23</a><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">)\n";</span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> ## Conectei no servidor, esse ai é o IP.</span><br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> $cmd1 .= "wait(InputField)\n";</span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> ## 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-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> $cmd1 .= "String(usertest)\n";</span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> ## 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-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> $cmd1 .= "wait(InputField)\n";</span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> ## 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-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> $cmd1 .= "String(passtest)\n";</span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> ## Digito a senha, que no meu caso é "passtest"</span><br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> $cmd1 .= "Ascii(0,0,24,80)\n";</span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"> ## 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<br><br>Marcio
</div>