<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><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>sub envio_facil{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my ($o, $d, $c, $a, $l) = @_;</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $url = WWW::Mechanize->new();</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>#$url->use_plugin('Ajax');</div><div><span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>$url->post(</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>'http://www.pagseguro.uol.com.br/para_seu_negocio/envio-facil.jhtml',</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>originCep <span class="Apple-tab-span" style="white-space:pre"> </span>=> $c,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>destinyCep <span class="Apple-tab-span" style="white-space:pre"> </span>=> $d,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Largura <span class="Apple-tab-span" style="white-space:pre"> </span>=> $l,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Altura<span class="Apple-tab-span" style="white-space:pre"> </span>=> $a,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Comprimento<span class="Apple-tab-span" style="white-space:pre"> </span>=> $c,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>);</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $preco = $url->decoded_content;</div><div><span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>return $preco;</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><hr id="stopSpelling">From: guedes_1000@hotmail.com<br>To: rio-pm@pm.org<br>Date: Wed, 9 Jul 2014 17:47:15 +0000<br>Subject: Re: [Rio-pm] [DUVIDA] Obter resultado de pesquisa<br><br>
<style><!--
.ExternalClass .ecxhmmessage P {
padding:0px;
}
.ExternalClass body.ecxhmmessage {
font-size:12pt;
font-family:Calibri;
}
--></style>
<div dir="ltr">Paciência... Quando acho que to no caminho certo, descubro que estou navegando em aguas desconhecidas.<br><br><div><hr id="ecxstopSpelling">From: blabos@gmail.com<br>Date: Wed, 9 Jul 2014 14:32:11 -0300<br>To: rio-pm@pm.org<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 class="ecxgmail_extra">
<br><br><div class="ecxgmail_quote">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 class="ecxgmail_quote" 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">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
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div></div> </div></body>
</html>