[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