[Rio-pm] [DUVIDA] Obter resultado de pesquisa
Aureliano Guedes
guedes_1000 em hotmail.com
Quarta Julho 9 10:15:41 PDT 2014
Ola monges,
Estou desenvolvendo um scriptzinho teste que se der tudo certo transformo em modulo e faço o upload para o CPAN.
O script trabalha com calculo de frete, semelhante ao WWW::Correios::PrecoPrazo do Garu.
A diferença é que ele calcula o frete com o desconto oferecido pelo PagSeguro para Envio Fácil (e-sedex) quando o pagamento é efetuado via PagSeguro.
Estou usando o WWW::Mechanize, mas algo da errado. Quando preencho os fields e submito retorna o seguinte erro:'Error GETing https://pagseguro.uol.com.br/para_seu_negocio/howItWorksCalculator.jhtml?originCep=74491626&destinyCep=36072130&width=30&height=6&length=40&weight=0.300: Not Found at C:\Users\Aureliano\Desktop\CEP\CEP.pl line 29.'
Mas não sei exato qual o problema, mas parece que ta tentando puxar essa uri, ou sei la o que ta acontecendo.
Alguem tem alguma ideia?
link do script completo: http://pastebin.com/Cg7XWBgB
Rotina onde acredito estar o problema:sub envio_facil{ my ($o, $d, $c, $a, $l) = @_; my $url = WWW::Mechanize->new(); $url->get('http://www.pagseguro.uol.com.br/para_seu_negocio/envio-facil.jhtml'); $url->submit_form( form_id => 'simulateCep', fields => {originCep => $c, destinyCep => $d, width => $l, height => $a, length => $c, , }, );
my $preco = $url->decoded_content; return $preco;}
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20140709/77d35371/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm