qr|Full Name| => sub {
> my ( $exp, $line ) = @_;
> print $line;
> $exp->send( "\n" );
> },
> qr|Room Number| => sub {
> my ( $exp, $line ) = @_;
> print $line;
> $exp->send( "\n" );
> },
> qr|Work Phone| => sub {
> my ( $exp
nue; }],
$shell_prompt);
Essa estrutura chamará todas as sub na sequência? O que devo fazer para
ajustar meu código? Onde estou errando? Como adequar as estruturas acima
para chamar apenas uma sub rotina dependendo do match da string?
Desde já agradeço,
Muito obrigado,
Atte.,
Fred
.
>
> sem saber mais detalhes fica impossivel ajudar.
>
> 2014-04-17 17:33 GMT-03:00 Daniel de Oliveira Mantovani <
> daniel.oliveira.mantov...@gmail.com
> >:
>
> Oxi, você pode fazer isso sem usar expected
>
> given() {
>
> }
>
> 2014-04-17 17:31
>}
>
> 2014-04-17 17:01 GMT-03:00 Tiago Peczenyj :
> > nunca usei assim mas baseado neste documento:
> >
> > http://search.cpan.org/~rgiersig/Expect-1.15/Expect.pod
> >
> > vc teria que usar o exp_continue no fim de cada subrotina.
> >
:
> nunca usei assim mas baseado neste documento:
>
> http://search.cpan.org/~rgiersig/Expect-1.15/Expect.pod
>
> vc teria que usar o exp_continue no fim de cada subrotina.
>
>
> 2014-04-17 16:58 GMT-03:00 Frederico Melo :
>
>> Monges! Socorro!
>> Sou bem li
e confirmar se é isso?
> Se for, qual o formato que esta o texto de entrada (ou seja, a saida do
> aplicativo) assim podemos ensinar qual regexp você precisa usar.
>
>
> 2014-04-17 16:58 GMT-03:00 Frederico Melo :
>
>> Monges! Socorro!
>> Sou bem limitado na programação em
Monges! Socorro!
Sou bem limitado na programação em perl mas estou evoluindo com o tempo.
Então desculpem pelas minhas dúvidas que para vocês, pode ser muito
simples...
Bom, estou utilizando expect com perl e analiso alguns outputs de um
servidor, em forma texto, que devo analisar e, dependendo da
pode fazer um if dentro do while tipo
>>
>> if ($string eq "xpto") {
>> last; ou next; ou exit;
>> }
>> Ricardo Stock
>> www.stocksistemas.com.br
>>
>> - Original Message -
>> *From:* Frederico Melo
>> *To:* saopa
Monges,
Alguém poderia me indicar um contato, site ou forum para dúvidas em expect?
Basicamente quero fazer um loop que, seja interrompido após encontrar uma
determinada string.
Obrigado à todos,
Um abraço,
Frederico
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-
Opa! Com certeza! Estou dividido nos projetos. Quando avançar mais lhe
apresento o resultado! No momento, estou querendo fazer um loop dentro de
uma "stringona" do expect... Lembra que, passamos uma série de comandos e
pegamos o resultado?
Pois é, o meu comando chega em um ponto que devo enviar ou
Eden! Obrigado! Funcionou! Muito obrigado mesmo!
Sem querer abusar, gostaria de entender melhor como crio os blocos de
processamento dentro do expect. Por exemplo:
#$exp->expect(5, [qr/.{1920}/ => sub {
# my($self) = @_;
#
o da sub será processado. Eu pelo menos acabei
> achando mais fácil assim do que pegar uma "stringona" e ficar procurando
> dados dentro dela.
>
> Pra cada vez que você enviar ($exp->send()) você precisa processar o
> retorno ($exp->expect()).
> O retorno é sempre
uder me ajudar,
mais uma vez serei grato.
Um abraço,
Frederico
2013/3/27 Thiago Glauco
> Muito bom. Mais uma ferramenta no meu canivete suíço!!!
>
> Em Ter, 2013-03-26 às 13:20 -0300, Frederico Melo escreveu:
> > Márcio! Muito obrigado pelas dicas! Mais uma vez sua ajuda está s
egar uma "stringona" e ficar procurando
> dados dentro dela.
>
> Pra cada vez que você enviar ($exp->send()) você precisa processar o
> retorno ($exp->expect()).
> O retorno é sempre uma string ou timeout. Você só tem que escolher como
> quer processar essa strin
Done! Boa sorte maluco!
2013/3/25 Solli Honorio
> Pessoal,
>
> O Breno, em reconhecimento a todos os esforços do maluco (que também
> atende pelo nome de Thiago Rondon), está fazendo a campanha para indicá-lo
> ao prémio de White Camel. (neste link tem o excelente texto do Breno
> http://mail.pm
Oi Márcio, tudo bem?
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.
Vejo n
Desculpem, descobri!
Basta utilizar a função Enter();
Agora vou avançando mais e posto aqui os resultados!
Abcs,
Fred
2013/3/21 Frederico Melo
> Olá Márcio, tudo bem?
>
> Voltei mestre! Bom, agora com um pouco mais de informação e bastante
> dúvida! Li os posts que você trocou
tanto
E não há envio de "enter" !!! Tem alguma dica? Por favor Márcio, fico muito
grato da sua ajuda e atenção!
Abc aos Mestres!
Frederico
2013/3/14 Frederico Melo
> Márcio! Você tem toda razão! Realmente estou muito sobrecarregado mas,
> estou em fase de finalização da outra demand
Bem vindo Rafael!
2013/3/12 Eden Cardim
>
> Rafael, seja bem-vindo à nossa lista, por favor, se apresente e nos
> conte como descobriu a lista, se não for pedir demais. E fique a
> vontade, a casa é sua! :)
>
> --
> Eden Cardim -- São Paulo Perl Mongers
> =begin disclaimer
>Sao Paulo Perl Mo
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ç
paralelo, fiquei sobrecarregado com outra demanda e não pude evoluir. Se
puder me ajudar, agradeço mesmo!
Obrigado!
2013/3/12 Marcio - Google
> Você já usou aqueles códigos/exemplos?
> Qual foi o resultado?
> Em 12/03/2013 08:06, "Frederico Melo" escreveu:
>
> Thiago,
e:
> > > Sim, mais a conexão e o ponto menos relevante nesse caso. O
> > problema é
> > > simular a interação e tratar "mapa de caracteres".
> > > Na verdade, nos primeiros testes que fiz, tentei conectar
> > c
Oi Marcio, o meu caso é idêntico ao seu... Preciso simular o acesso humano
em um terminal emulado pelo QWS3270... Hoje não pude avançar nada pois
estava com outra demanda! Mas, tá osso começar...
Obrigado!
On Thursday, March 7, 2013, Marcio - Google wrote:
> Frederico,
>
> Gostaria de entender
lizado 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
>
>> Eu também vi algo so
> Em 7 de março de 2013 14:33, Frederico Melo 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, ten
Olá Daniel, não trabalho na IBM... :-(
Você teria como me ajudar no projeto que postei? Sabe como fazê-lo?
Obrigado e desculpe a trabalheira!
Frederico
2013/3/7 Daniel de Oliveira Mantovani
> Qual prédio da IBM Você fica ?
>
> 2013/3/7 Frederico Melo :
> > Sr(a)s.
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 mo
Conheci a lista pelo Google. Estou envolvido em um projeto aqui no trabalho
onde estou com muitas dificuldades, pesquisei sobre o tema no Google e o
mesmo retornou algumas respostas mas, as desse grupo de discussão foram as
mais produtivas. Ainda assim, preciso de ajuda e ficarei muito grato se
con
28 matches
Mail list logo
