<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">https://github.com/blabos/Docs/wiki/Protocolo-HTTP</a><br></div><div><br></div><div>[]'s</div><div><br></div></div><div class="gmail_extra">
<br><br><div class="gmail_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="gmail_quote" style="margin:0 0 0 .8ex;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'" 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>