<div dir="ltr">Faça um POST para /para_seu_negocio/howItWorksCalculator.jhtml</div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-07-09 16:45 GMT-03:00 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">Não sei, acho que estou meio inferrujado, mas tentei fazer pelo metodo post, mas não deu certo.<div><br></div><div>a rotina ficou assim: </div><div><div class=""><div>sub envio_facil{</div><div><span style="white-space:pre-wrap"> </span>my ($o, $d, $c, $a, $l) = @_;</div>
<div><span style="white-space:pre-wrap"> </span>my $url = WWW::Mechanize->new();</div></div><div><span style="white-space:pre-wrap"> </span>#$url->use_plugin('Ajax');</div><div><span style="white-space:pre-wrap"> </span></div>
<div><span style="white-space:pre-wrap"> </span>$url->post(</div><div><span style="white-space:pre-wrap"> </span>'<a href="http://www.pagseguro.uol.com.br/para_seu_negocio/envio-facil.jhtml" target="_blank">http://www.pagseguro.uol.com.br/para_seu_negocio/envio-facil.jhtml</a>',</div>
<div><span style="white-space:pre-wrap"> </span>{</div><div class=""><div><span style="white-space:pre-wrap"> </span>originCep <span style="white-space:pre-wrap"> </span>=> $c,</div><div><span style="white-space:pre-wrap"> </span>destinyCep <span style="white-space:pre-wrap"> </span>=> $d,</div>
</div><div><span style="white-space:pre-wrap"> </span>Largura <span style="white-space:pre-wrap"> </span>=> $l,</div><div><span style="white-space:pre-wrap"> </span>Altura<span style="white-space:pre-wrap"> </span>=> $a,</div>
<div><span style="white-space:pre-wrap"> </span>Comprimento<span style="white-space:pre-wrap"> </span>=> $c,</div><div class=""><div><span style="white-space:pre-wrap"> </span>},</div><div><span style="white-space:pre-wrap"> </span>);</div>
<div><br></div><div><span style="white-space:pre-wrap"> </span>my $preco = $url->decoded_content;</div><div><span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span>return $preco;</div>
<div>}</div></div></div><div><br></div><div>Ainda estou tentando outras formas, mas não faço ideia do que eu to tentando fazer pra dar certo.</div><div><br><div><div class="hm HOEnZb"><hr>From: <a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a><br>
To: <a href="mailto:rio-pm@pm.org" target="_blank">rio-pm@pm.org</a><br>Date: Wed, 9 Jul 2014 17:47:15 +0000</div><div><div class="h5"><br>Subject: Re: [Rio-pm] [DUVIDA] Obter resultado de pesquisa<br><br>
<div dir="ltr">Paciência... Quando acho que to no caminho certo, descubro que estou navegando em aguas desconhecidas.<br><br><div><hr>From: <a href="mailto:blabos@gmail.com" target="_blank">blabos@gmail.com</a><br>Date: Wed, 9 Jul 2014 14:32:11 -0300<br>
To: <a href="mailto:rio-pm@pm.org" target="_blank">rio-pm@pm.org</a><br>Subject: Re: [Rio-pm] [DUVIDA] Obter resultado de pesquisa<br><br><div dir="ltr">Simples meu caro gafanhoto!<div><br></div><div>Você seguiu o be-a-bá tradicional de forma correta. Acessa a página do formulário, preenche os dados e submit.</div>
<div><br></div><div>Só que esse form na realidade não faz o tradicional.</div>
<div><br></div><div>Se você inspecionar a página com o Inspect ou o firebug no Firefox, vai ver que o form não declara um "method" o que implica "GET".</div><div><br></div><div>Entretanto, para acessar os dados, a página faz um "POST", provavelmente via AJAX e não um submit tradicional.</div>
<div><br></div><div>Quando vc faz o submit, o Mechanize tenta enviar os dados pela URL usando o método GET e o sevidor te responde com um 404 Not Found. É isso que o Mechanize está te avisando.</div><div><br></div><div>Dá uma olhada nisso aqui:</div>
<div><br></div><div><a href="https://github.com/blabos/Docs/wiki/Protocolo-HTTP" target="_blank">https://github.com/blabos/Docs/wiki/Protocolo-HTTP</a><br></div><div><br></div><div>[]'s</div><div><br></div></div><div>
<br><br><div>2014-07-09 14:15 GMT-03:00 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span>:<br><blockquote style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">Ola monges,<div><br></div><div>Estou desenvolvendo um scriptzinho teste que se der tudo certo transformo em modulo e faço o upload para o CPAN.</div><div><br></div><div>O script trabalha com calculo de frete, semelhante ao <span style="font-family:arial,sans-serif;font-size:12pt;background-color:rgb(255,255,255)">WWW::Correios::PrecoPrazo</span><span style="font-size:12pt"> do Garu.</span></div>
<div><span style="font-size:12pt"><br></span></div><div><span style="font-size:12pt">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.</span></div>
<div><span style="font-size:12pt"><br></span></div><div><span style="font-size:12pt">Estou usando o WWW::Mechanize, mas algo da errado. Quando preencho os fields e submito retorna o seguinte erro:</span></div><div><span style="font-size:12pt">'</span>Error GETing <a href="https://pagseguro.uol.com.br/para_seu_negocio/howItWorksCalculator" target="_blank">https://pagseguro.uol.com.br/para_seu_negocio/howItWorksCalculator</a>.</div>
<div>jhtml?originCep=74491626&destinyCep=36072130&width=30&height=6&length=40&weight=</div><div>0.300: Not Found at C:\Users\Aureliano\Desktop\CEP\CEP.pl line 29.<span style="font-size:12pt">'</span></div>
<div><span style="font-size:12pt"><br></span></div><div><span style="font-size:12pt">Mas não sei exato qual o problema, mas parece que ta tentando puxar essa uri, ou sei la o que ta acontecendo.</span></div><div><span style="font-size:12pt"><br>
</span></div><div><span style="font-size:12pt">Alguem tem alguma ideia?</span></div><div><span style="font-size:12pt"><br></span></div><div><span style="font-size:12pt">link do script completo: </span><a href="http://pastebin.com/Cg7XWBgB" style="font-size:12pt" target="_blank">http://pastebin.com/Cg7XWBgB</a></div>
<div><span style="font-size:12pt"><br></span></div><div>Rotina onde acredito estar o problema:</div><div><div>sub envio_facil{</div><div><span style="white-space:pre-wrap"> </span>my ($o, $d, $c, $a, $l) = @_;</div><div>
<span style="white-space:pre-wrap"> </span>my $url = WWW::Mechanize->new();</div>
<div><span style="white-space:pre-wrap"> </span>$url->get('<a href="http://www.pagseguro.uol.com.br/para_seu_negocio/envio-facil.jhtml%27" target="_blank">http://www.pagseguro.uol.com.br/para_seu_negocio/envio-facil.jhtml'</a>);</div>
<div><span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span>$url->submit_form(</div><div><span style="white-space:pre-wrap"> </span>form_id <span style="white-space:pre-wrap"> </span>=> 'simulateCep',</div>
<div><span style="white-space:pre-wrap"> </span>fields <span style="white-space:pre-wrap"> </span>=> {originCep<span style="white-space:pre-wrap"> </span>=> $c,</div><div><span style="white-space:pre-wrap"> </span>destinyCep<span style="white-space:pre-wrap"> </span>=> $d,</div>
<div><span style="white-space:pre-wrap"> </span>width <span style="white-space:pre-wrap"> </span> <span style="white-space:pre-wrap"> </span>=> $l,</div><div><span style="white-space:pre-wrap"> </span>height <span style="white-space:pre-wrap"> </span>=> $a,</div>
<div><span style="white-space:pre-wrap"> </span>length <span style="white-space:pre-wrap"> </span>=> $c,<span style="white-space:pre-wrap"> </span>,</div><div><span style="white-space:pre-wrap"> </span>},</div>
<div><span style="white-space:pre-wrap"> </span>);</div><div><br></div><div><span style="white-space:pre-wrap"> </span>my $preco = $url->decoded_content;</div><div><span style="white-space:pre-wrap"> </span></div><div>
<span style="white-space:pre-wrap"> </span>return $preco;</div><div>}</div></div><div><br></div><div><br></div><div><span style="font-size:12pt"><br></span></div><div><span style="font-size:12pt"><br></span></div><div><span style="font-size:12pt"><br>
</span></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br></div>
<br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div> </div>
<br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div></div></div></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Gabriel Vieira
</div>