Fred, com o Net::Telnet você informa o comando e o prompt esperado ao termino do comando. Por exemplo:
my $ibm_conn = Net::Telnet->new (Errmode => "return", #report do erro Host => $host, #seu IBM host aqui Prompt => $matchop, #por exemplo,"bash$" Timeout => $secs,); #tempo for my $comando (@minha_lista_de comandos){ my @data = $ibm_conn->cmd(String => $comando, #comando [Prompt => $match,] #se for o caso [Timeout => $secs,]); #se for o caso. #a saída do comando fica em @data. Ai voce manipula como #qualquer array. ...higieniza o array ... manda pro banco de dados } espero ter ajudado. On Thu, 2013-03-07 at 16:40 -0300, Frederico Melo wrote: > Olá! > > Giuliani, eu tenho acesso por telnet ao IBM. Sei o que devo buscar e > onde encontrar os dados. Só não sei como fazê-lo com expect ou > s3270... tá osso! > HELP > > > 2013/3/7 Giuliani Sanches <giulianisanc...@gmail.com> > Buenas Frederico, > > > Pelo histórico da lista eu diria que vc tem a faca e o queijo > na mão. > > > Já da pra tentar fazer conexão, enviar alguma coisa e ler > alguma coisa enquanto o Eden pica o queijo e oferece goiabada > ou doce de leite pra acompanhar (escreve o artigo :P ). > > > Numa dessas você consegue fazer algo funcional e pode usar o > material que será disponibilizado para melhorar. > > > Para saber o que enviar e receber, deve ter alguma > especificação ou alguém que tenha maiores detalhes. > > > Abraço. > > > > Giuliani D. Sanches > about.me/giulianisanches > > > 2013/3/7 Frederico Melo <fdmm...@gmail.com> > Eu também vi algo sobre isso! Estou precisando muito > de uma LUZ sobre esse tema tão pobre de documentação e > exemplos... Tomara que eu consiga ajuda por aqui! > > Um abraço, > Frederico > > > 2013/3/7 Leonardo Ruoso <leona...@ruoso.com> > Parece que eu vi a promessa de um artigo sobre > isso para este Equinócio. > > > Em 7 de março de 2013 14:33, Frederico Melo > <fdmm...@gmail.com> escreveu: > Sr(a)s., Obrigado pela disponibilidade > de alguns com os quais conversei *em > paralelo* e me orientaram a postar > aqui... Segue abaixo um resumo da > minha dor de cabeça: > > Chamo-me Frederico, tenho alguns > conhecimentos em PHP, Perl, MySQL e > Linux. Aqui na empresa, trabalho com > desenvolvimento e até o momento não > tive problemas mas, surgiu um projeto > que estou responsável onde será > necessário coletar uma série de > informações em um mainframe IBM, > processá-las e armazená-las em MySQL. > Apresentarei os dados em HTML. Então, > gostaria muito de uma orientação para: > > 1 - com um servidor Linux sem > interface gráfica, acessar o servidor > IBM através de telnet na porta 23; > 2 - capturar alguns dados nesse IBM e > armazená-los em MySQL > 3 - após capturar os dados, devo > escrever alguns comandos no IBM ou > seja, o programa deve ser de mão-dupla > (lê e escrever no IBM utilizando > usuário conhecido nesse ambiente); > 4 - toda interface existente para o > IBM é feita por aplicativos no Windows > (Winsock 3270 Telnet, QWS3270) > 5 - tenho instalado no servidor Linux > expect, php, perl, mysql > > Penso em desenvolver algo com perl, > expect, s3270 etc mas, sinceramente > não sei qual a melhor solução. > Tenho facilidade em aprender sozinho > mas, preciso de um exemplo inicial > onde eu possa testar e verificar o > resultado do que está sendo feito. À > partir daí, customizo e tento > implementar. > > No momento, estou CEGO caminhando em > um terreno novo, sem saber muito bem > por onde começar... > Não tenho muita familiaridade com o > Expect, nem com o s3270. Socorro e > desculpem-me pela minha ignorância! > > Aprecio muito qualquer ajuda para eu > começar. > Obrigado! > > Frederico > > > =begin disclaimer > Sao Paulo Perl Mongers: > http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: > SaoPaulo-pm@pm.org > > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > > > > > > -- > Leonardo Ruoso > Journalist, Perl developer and business > consultant > Media, UFC/2006; Telecom, IFCE/1998 > > =begin disclaimer > Sao Paulo Perl Mongers: > http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > > > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > > > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer =begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer