<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'>Já tentei<div><br></div><div>Mas acho que devo esta preenchendo o JSON errado:</div><div><br></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 = new WWW::Mechanize;</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>$url->get('https://pagseguro.uol.com.br/para_seu_negocio/envio-facil.jhtml');</div><div><span class="Apple-tab-span" style="font-size: 12pt; white-space: pre;"> </span><span style="font-size: 12pt;">$url->post(</span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>'http://www.pagseguro.uol.com.br/para_seu_negocio/howItWorksCalculator.jhtml',</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{<span class="Apple-tab-span" style="font-size: 12pt; white-space: pre;"> </span><span style="font-size: 12pt;">originCep </span><span class="Apple-tab-span" style="font-size: 12pt; white-space: pre;"> </span><span style="font-size: 12pt;">=> $c,</span></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 => $c</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>}<span style="font-size: 12pt;">);</span></div><div><span class="Apple-tab-span" style="font-size: 12pt; white-space: pre;"> </span><span style="font-size: 12pt;">my $preco = $url->decoded_content;</span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span><span style="font-size: 12pt;">return $preco;</span></div><div>}</div><div><br></div><div>Deveria preencher seguindo isso??</div><div><br></div><div><div>//VALIDAÇÕES DOS CAMPOS DA SIMULAÇÃO</div><div><span style="font-size: 12pt;"> {</span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>cepOrigem: {</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>name: "originCep",</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>selector: $("#cepOrigem"),</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>required: true,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>requiredMessage: ["O campo CEP de origem deve ser preenchido."]</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>cepDestino: {</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>name: "destinyCep",</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>selector: $("#cepDestino"),</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>required: true,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>requiredMessage: ["O campo CEP de destino deve ser preenchido."]</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>largura: {</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>name: "Largura",</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>selector: $("#largura"),</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>required: true,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>requiredMessage : "A largura deve ser preenchida.",</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>validations: [</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>function (f) { return PagSeguro.Helper.isInteger(f.selector.val())},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> <span class="Apple-tab-span" style="white-space:pre"> </span>function (f) { if (parseInt(f.selector.val()) < 11) {return false;} else {return true}},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> <span class="Apple-tab-span" style="white-space:pre"> </span>function (f) { if (parseInt(f.selector.val()) > 105) {return false;} else {return true}}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>],</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>messages: ["Largura inválida","A largura mínima é de 11cm.","A largura máxima é de 105cm."]</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>altura: {</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>name: "Altura",</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>selector: $("#altura"),</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>required: true,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>requiredMessage : "A altura deve ser preenchida.",</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>validations: [</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>function (f) { return PagSeguro.Helper.isInteger(f.selector.val())},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> <span class="Apple-tab-span" style="white-space:pre"> </span>function (f) { if (parseInt(f.selector.val()) < 2) {return false;} else {return true}},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> <span class="Apple-tab-span" style="white-space:pre"> </span>function (f) { if (parseInt(f.selector.val()) > 105) {return false;} else {return true}}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>],</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>messages: ["Altura inválida","A altura mínima é de 2cm.","A altura máxima é de 105cm."]</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>comprimento: {</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>name: "Comprimento",</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>selector: $("#comprimento"),</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>required: true,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>requiredMessage : "O comprimento deve ser preenchido.",</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>validations: [</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>function (f) { return PagSeguro.Helper.isInteger(f.selector.val())},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> <span class="Apple-tab-span" style="white-space:pre"> </span>function (f) { if (parseInt(f.selector.val()) < 16) {return false;} else {return true}},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> <span class="Apple-tab-span" style="white-space:pre"> </span>function (f) { if (parseInt(f.selector.val()) > 105) {return false;} else {return true}}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>],</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>messages: ["Comprimento inválido","O comprimento mínimo é de 16cm.","O comprimento máximo é de 105cm."]</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><hr id="stopSpelling">From: gabriel.vieira@gmail.com<br>Date: Wed, 9 Jul 2014 17:28:03 -0300<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] [DUVIDA] Obter resultado de pesquisa<br><br><div dir="ltr">Faça um POST para /para_seu_negocio/howItWorksCalculator.jhtml</div><div class="ecxgmail_extra"><br><br><div class="ecxgmail_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="ecxgmail_quote" style="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><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><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><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="ecxhm ecxHOEnZb"><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>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div></div> </div></body>
</html>