[SP-pm] Automatizando consulta IBM com Perl ou Expect
thiago glauco sanchez
thiagoglauco at ticursos.net
Sat Mar 9 10:34:29 PST 2013
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 <giulianisanches em 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 <fdmmelo em 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 <leonardo em 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
> <fdmmelo em 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 em 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 em 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 em 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 em 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 em pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
More information about the SaoPaulo-pm
mailing list