*9^99 ++ On Apr 18, 2014 8:47 PM, "Tiago Peczenyj" <[email protected]> wrote:
> dá dinheiro :P > > > 2014-04-18 20:45 GMT-03:00 Andre Carneiro <[email protected]>: > >> Nossa! Espero nunca trabalhar com terminais 3270/IBM. Eles parecem >> 'perigosos' ... >> >> >> 2014-04-18 15:22 GMT-03:00 Marcio - Google <[email protected]>: >> >> Acredito que ele esteja interagindo com um terminal 3270/IBM Mainframe >>> ... esse assunto já rolou a um tempo atrás, iniciado por mim, houve >>> bastante colaboração. Não conclui o projeto, mas no histórico tem coisas >>> interessantes. >>> >>> Não consigo ajuda-lo porque estou praticamente sedado a alguns meses, >>> desculpe. >>> >>> Fred, poste pelo menos um bloco completo (relevante ao assunto) do >>> código que o pessoal conseguirá ajudar mais. >>> >>> [...]'s >>> >>> Marcio >>> >>> ======================================== >>> ########### Campanha Ajude o Marcio! ########### >>> http://sosmarcio.blogspot.com.br/ >>> http://www.vakinha.com.br/VaquinhaP.aspx?e=195793 >>> ======================================== >>> Em 18/04/2014 10:34, "Tiago Peczenyj" <[email protected]> >>> escreveu: >>> >>> Isso eu sei, só queria entender de onde saiu o " devemos evitar " >>>> Em 18/04/2014 11:25, "Leonardo Ruoso" <[email protected]> escreveu: >>>> >>>>> Em 18 de abril de 2014 11:14, Tiago Peczenyj <[email protected] >>>>> > escreveu: >>>>> >>>>>> What? >>>>>> >>>>> >>>>> *given, when and ~~ * >>>>> >>>>> >>>>>> Em 18/04/2014 10:58, "Vinícius Miasato" <[email protected]> >>>>>> escreveu: >>>>>> >>>>>> Opa, >>>>>>> >>>>>>> given não deveria ser evitado? Aliás não precisamos de given at all, >>>>>>> certo? >>>>>>> >>>>>>> atenciosamente, >>>>>>> Vinícius Miasato >>>>>>> Em 17/04/2014 17:41, "Tiago Peczenyj" <[email protected]> >>>>>>> escreveu: >>>>>>> >>>>>>>> se o cara vai ler da stdin ( e estamos admitindo que o cara fez um >>>>>>>> pipe para o script ) ok, mas o Expect te dá apenas a opção de >>>>>>>> controlar o >>>>>>>> timeout com processo como também é bidirecional. >>>>>>>> >>>>>>>> sem saber mais detalhes fica impossivel ajudar. >>>>>>>> >>>>>>>> 2014-04-17 17:33 GMT-03:00 Daniel de Oliveira Mantovani < >>>>>>>> [email protected]>: >>>>>>>> >>>>>>>>> Oxi, você pode fazer isso sem usar expected.... >>>>>>>>> >>>>>>>>> given(<STDIN>) { >>>>>>>>> >>>>>>>>> } >>>>>>>>> >>>>>>>>> 2014-04-17 17:31 GMT-03:00 Frederico Melo <[email protected]>: >>>>>>>>> > Oi Daniel, >>>>>>>>> > >>>>>>>>> > Preciso do expect pois vou interagir com o servidor. E analiso o >>>>>>>>> que esse >>>>>>>>> > servidor escreve em uma tela para tomar a decisão do próximo >>>>>>>>> passo... >>>>>>>>> > >>>>>>>>> > A estrutura que você sugeriu é legal mas, acho que só >>>>>>>>> interagindo dentro do >>>>>>>>> > perl. >>>>>>>>> > >>>>>>>>> > Obrigado, >>>>>>>>> > >>>>>>>>> > >>>>>>>>> > 2014-04-17 17:17 GMT-03:00 Daniel de Oliveira Mantovani >>>>>>>>> > <[email protected]>: >>>>>>>>> > >>>>>>>>> >> Porque você quer usar expected ? (Seja lá o que esse método que >>>>>>>>> você >>>>>>>>> >> não especificou de onda venha faz). >>>>>>>>> >> >>>>>>>>> >> given ($text) { >>>>>>>>> >> obj() when /OBJETIVO/; >>>>>>>>> >> consulta() when /CONSULTA/; >>>>>>>>> >> } >>>>>>>>> >> >>>>>>>>> >> 2014-04-17 17:01 GMT-03:00 Tiago Peczenyj < >>>>>>>>> [email protected]>: >>>>>>>>> >> > 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 <[email protected] >>>>>>>>> >: >>>>>>>>> >> >> >>>>>>>>> >> >> 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 >>>>>>>>> ocorrência >>>>>>>>> >> >> de >>>>>>>>> >> >> uma string, devo disparar uma determinada sub-rotina para >>>>>>>>> tratativas >>>>>>>>> >> >> específicas. >>>>>>>>> >> >> >>>>>>>>> >> >> Ex.: se aparecer a string CONSULTA, devo disparar a subrotina >>>>>>>>> >> >> consulta() >>>>>>>>> >> >> Se aparecer a string OBJETIVO, devo disparar a subrotina >>>>>>>>> obj() e assim >>>>>>>>> >> >> por >>>>>>>>> >> >> diante. >>>>>>>>> >> >> >>>>>>>>> >> >> O output do servidor é verificado pelo expect e, no momento >>>>>>>>> que devo >>>>>>>>> >> >> tomar >>>>>>>>> >> >> a decisão, a tela do output é apenas uma, com apenas uma das >>>>>>>>> >> >> ocorrências >>>>>>>>> >> >> abaixo. >>>>>>>>> >> >> >>>>>>>>> >> >> Para verificar isso, estruturei o código .pl assim: >>>>>>>>> >> >> >>>>>>>>> >> >> $exp->expect(2, >>>>>>>>> >> >> >>>>>>>>> >> >> [ qr/SELECIONE/ => \&select()], >>>>>>>>> >> >> >>>>>>>>> >> >> [ qr/OBJETIVO/ => \&obj()], >>>>>>>>> >> >> >>>>>>>>> >> >> [ qr/AGUARDE/ => \&sai_6()], >>>>>>>>> >> >> >>>>>>>>> >> >> [ qr/CONSULTA/ => \&consulta()], >>>>>>>>> >> >> >>>>>>>>> >> >> [ timeout => \&cancela() ], >>>>>>>>> >> >> >>>>>>>>> >> >> ); >>>>>>>>> >> >> >>>>>>>>> >> >> Ou seja, no meu entendimento limitado, quero que o expect >>>>>>>>> dispare uma >>>>>>>>> >> >> das >>>>>>>>> >> >> subs acima dependendo da string que ele encontrar no output >>>>>>>>> do >>>>>>>>> >> >> servidor. >>>>>>>>> >> >> >>>>>>>>> >> >> Acredito que a estrutura acima, que parece uma matriz >>>>>>>>> (desculpem a >>>>>>>>> >> >> ignorância), vai executar TODAS as subs independente do >>>>>>>>> conteúdo do >>>>>>>>> >> >> output >>>>>>>>> >> >> do servidor. >>>>>>>>> >> >> >>>>>>>>> >> >> O que está acontecendo é que o expect ou o perl só dispara a >>>>>>>>> primeira >>>>>>>>> >> >> sub... select()... independente da string encontrada... >>>>>>>>> >> >> >>>>>>>>> >> >> Sei que a condição para encontrar as strings funcionam pois, >>>>>>>>> fiz um >>>>>>>>> >> >> perl >>>>>>>>> >> >> com expect para cada condição acima e, quando rodo >>>>>>>>> individualmente cada >>>>>>>>> >> >> .pl, >>>>>>>>> >> >> funciona certo... o que estou errando? Como devo fazer o que >>>>>>>>> preciso? >>>>>>>>> >> >> >>>>>>>>> >> >> Por favor, ajudem! >>>>>>>>> >> >> >>>>>>>>> >> >> Muito obrigado, >>>>>>>>> >> >> Atte., >>>>>>>>> >> >> Frederico >>>>>>>>> >> >> >>>>>>>>> >> >> >>>>>>>>> >> >> =begin disclaimer >>>>>>>>> >> >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>>>>>> >> >> SaoPaulo-pm mailing list: [email protected] >>>>>>>>> >> >> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>>>>>>> >> >> =end disclaimer >>>>>>>>> >> >> >>>>>>>>> >> > >>>>>>>>> >> > >>>>>>>>> >> > >>>>>>>>> >> > -- >>>>>>>>> >> > Tiago B. Peczenyj >>>>>>>>> >> > Linux User #405772 >>>>>>>>> >> > >>>>>>>>> >> > http://about.me/peczenyj >>>>>>>>> >> > >>>>>>>>> >> > =begin disclaimer >>>>>>>>> >> > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>>>>>> >> > SaoPaulo-pm mailing list: [email protected] >>>>>>>>> >> > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>>>>>>> >> > =end disclaimer >>>>>>>>> >> > >>>>>>>>> >> >>>>>>>>> >> >>>>>>>>> >> >>>>>>>>> >> -- >>>>>>>>> >> >>>>>>>>> >> -dom >>>>>>>>> >> >>>>>>>>> >> -- >>>>>>>>> >> >>>>>>>>> >> Daniel de Oliveira Mantovani >>>>>>>>> >> Business Analytic Specialist >>>>>>>>> >> Perl Evangelist /Astrophysics hobbyist. >>>>>>>>> >> +55 11 9 8538-9897 >>>>>>>>> >> XOXO >>>>>>>>> >> =begin disclaimer >>>>>>>>> >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>>>>>> >> SaoPaulo-pm mailing list: [email protected] >>>>>>>>> >> 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: [email protected] >>>>>>>>> > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>>>>>>> > =end disclaimer >>>>>>>>> > >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> -- >>>>>>>>> >>>>>>>>> -dom >>>>>>>>> >>>>>>>>> -- >>>>>>>>> >>>>>>>>> Daniel de Oliveira Mantovani >>>>>>>>> Business Analytic Specialist >>>>>>>>> Perl Evangelist /Astrophysics hobbyist. >>>>>>>>> +55 11 9 8538-9897 >>>>>>>>> XOXO >>>>>>>>> =begin disclaimer >>>>>>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>>>>>> SaoPaulo-pm mailing list: [email protected] >>>>>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>>>>>>> =end disclaimer >>>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> -- >>>>>>>> Tiago B. Peczenyj >>>>>>>> Linux User #405772 >>>>>>>> >>>>>>>> http://about.me/peczenyj >>>>>>>> >>>>>>>> =begin disclaimer >>>>>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>>>>> SaoPaulo-pm mailing list: [email protected] >>>>>>>> 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: [email protected] >>>>>>> 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: [email protected] >>>>>> 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: [email protected] >>>>> 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: [email protected] >>>> 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: [email protected] >>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>> =end disclaimer >>> >>> >> >> >> -- >> André Garcia Carneiro >> Software Engineer >> (11)982907780 >> >> =begin disclaimer >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >> SaoPaulo-pm mailing list: [email protected] >> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >> =end disclaimer >> >> > > > -- > Tiago B. Peczenyj > Linux User #405772 > > http://about.me/peczenyj > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: [email protected] > 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: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
