Oi Hernan, obrigado pelo seu interesse. Na estrutura funcional que você
enviou:
O expect só vai realizar as chamadas para as subs quando o match for
verdadeiro? Ou ele vai executar linha por linha? Desculpe a ignorância...
sorry...Se sim, será que as regex no meu código estão erradas? Por favor
Pessoal,
Obrigado pelo interesse. Dando prosseguimento, e espero esclarecer melhor,
tenho a seguinte situação:
Como o Márcio havia dito, estou acessando um mainframe IBM pelo perl e
expect. O retorno que recebo do IBM são prints da sua tela, em texto puro e
o perl/expect participa dessa
Esse exp_continue pode estar te atrapalhando, tenta comentar ele.
Tenta o seguinte:
$exp-expect(
$timeout,
[
qr/username: /i,
sub {
my $self = shift;
$self-send($username\n);
///exp_continue;
}
,
qr/password: /i,
sub {
my $self = shift;
$self-send($password\n);
///exp_continue;
}
]
);
Segue
Tiago, ele pode usar full-duplex pipeling ou abrir um pipeline[0] para
escrita e outro para leitura. Depois criar um processo para gerenciar
o processo que o comando está rodando utilizando. fork[1]
Eu escrevi uma implementação parecida esses dias, a diferença é que eu
paralelizei o processo que
É mesmo. Eu usei em um projeto e não fui muito feliz porque o smart match às
funcionava... às vezes não.
Considerando que eu teria que forçar o uso de perl = 5.16, eu preferi deixar
para lá e usar a velha combinação de blocos nomeados e last para sair fora
quando uma opção era selecionada.
Monges mestres! Obrigado pelo apoio e atenção! Estou com acesso restrito e,
assim que der retorno com detalhes.
Márcio, espero que vc melhore! Realmente você havia iniciado esse tema de
integração há algum tempo e foi por ele que iniciei meu projeto. Obrigado
pelo apoio! O Eden tb ajudou demais!
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 tiago.pecze...@gmail.com 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
What?
Em 18/04/2014 10:58, Vinícius Miasato viniciusmias...@gmail.com
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 tiago.pecze...@gmail.com escreveu:
se o cara vai ler da
Em 18 de abril de 2014 11:14, Tiago Peczenyj tiago.pecze...@gmail.comescreveu:
What?
*given, when and ~~ *
Em 18/04/2014 10:58, Vinícius Miasato viniciusmias...@gmail.com
escreveu:
Opa,
given não deveria ser evitado? Aliás não precisamos de given at all,
certo?
atenciosamente,
Isso eu sei, só queria entender de onde saiu o devemos evitar
Em 18/04/2014 11:25, Leonardo Ruoso leona...@ruoso.com escreveu:
Em 18 de abril de 2014 11:14, Tiago Peczenyj
tiago.pecze...@gmail.comescreveu:
What?
*given, when and ~~ *
Em 18/04/2014 10:58, Vinícius Miasato
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,
Nossa! Espero nunca trabalhar com terminais 3270/IBM. Eles parecem
'perigosos' ...
2014-04-18 15:22 GMT-03:00 Marcio - Google marci...@gmail.com:
Acredito que ele esteja interagindo com um terminal 3270/IBM Mainframe ...
esse assunto já rolou a um tempo atrás, iniciado por mim, houve
dá dinheiro :P
2014-04-18 20:45 GMT-03:00 Andre Carneiro andregarciacarne...@gmail.com:
Nossa! Espero nunca trabalhar com terminais 3270/IBM. Eles parecem
'perigosos' ...
2014-04-18 15:22 GMT-03:00 Marcio - Google marci...@gmail.com:
Acredito que ele esteja interagindo com um terminal
*9^99 ++
On Apr 18, 2014 8:47 PM, Tiago Peczenyj tiago.pecze...@gmail.com wrote:
dá dinheiro :P
2014-04-18 20:45 GMT-03:00 Andre Carneiro andregarciacarne...@gmail.com:
Nossa! Espero nunca trabalhar com terminais 3270/IBM. Eles parecem
'perigosos' ...
2014-04-18 15:22 GMT-03:00 Marcio
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
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 fdmm...@gmail.com:
Monges! Socorro!
Sou bem limitado na programação em perl mas estou
Não sei de qual expect você ta falando.
Pode ser do https://metacpan.org/pod/distribution/Expect/Expect.pod
mas mesmo assim, eu nunca usei ele, mas pelo que li rapidamente, ele
funciona lendo o STDOUT/ERR de um processo e escrevendo as respostas
dependendo das regexp no STDIN.
Você pode
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 tiago.pecze...@gmail.com:
Oi Tiago,
o expect é esse mesmo! Acho que meu problema vem antes disso... será?
Sinceramente não sei... help!!! Eu queria que a estrutura que fiz, só
disparasse uma rotina para a ocorrência da string encontrada. Da maneira
que está, ele está disparando apenas a primeira sub, independente da
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
Oxi, você pode fazer isso sem usar expected
given(STDIN) {
}
2014-04-17 17:31 GMT-03:00 Frederico Melo fdmm...@gmail.com:
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
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
22 matches
Mail list logo
