Tiago++ Resolvido Tiago, valeu você esta correto e sua ajuda contribuiu muito na solução do erro. Eu confundi achando que o problema estava na codificação de envio, mas o problema de codificação era na resposta. Solução:
use Encode; my $content = encode 'utf8', $mech->content; Solução encontrada nesse tópico http://stackoverflow.com/questions/8289485/wwwmechanize-and-wide-character-warning . Em 24 de março de 2013 22:22, Lucas Moraes <[email protected]>escreveu: > Tiago o erro só acontece quando eu passo na query string "q=valor", com > acento ou sem acento ele dá o mesmo erro. Mas mesmo assim, segui a sugestão > que você me passou e não funcionou. Tentei também no terminal com mech-dump, > retorna o mesmo erro. > > Em 24 de março de 2013 18:23, Tiago Peczenyj > <[email protected]>escreveu: > > veja se esta thread lhe ajuda >> >> http://www.perlmonks.org/?node_id=762769 >> >> tem haver com utf-8 encoding >> >> 2013/3/24 Lucas Moraes <[email protected]> >> >>> Salve mongers! Meus amigos estou com dificuldade para usar o >>> WWW::Mechanize em um determinado site, meu cliente quer que eu capture as >>> informações do mesmo para integrar em seu sistema, mas estou encontrando >>> muita dificuldade, eu usei muito pouco o módulo WWW::Mechanize. Então vamos >>> lá: >>> >>> Quando faço a requisição, no server de teste do Catalyst me retorna: >>> [error] Caught exception in engine "Wide character in syswrite at >>> /home/lucas/perl5/perlbrew/perls/perl-5.16.1/lib/5.16.1/x86_64-linux/IO/Handle.pm >>> line 478, <DATA> line 1000." >>> >>> E no navegador me retorna: >>> Erro 354 (net::ERR_CONTENT_LENGTH_MISMATCH): O servidor encerrou a >>> conexão inesperadamente. >>> >>> O código: >>> my $mech = WWW::Mechanize->new; >>> $mech->get(' >>> http://www.jusbrasil.com.br/legislacao/busca?q=usucapião&s=legislacao'); >>> my $valor = $mech->content; >>> $c->res->body("$valor"); >>> >>> Alguém pode ajudar ou me indicar o que devo fazer. >>> >>> Obrigado. >>> >>> =begin disclaimer >>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>> SaoPaulo-pm mailing list: [email protected] >>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>> =end disclaimer >>> >>> >> >> >> -- >> Tiago B. Peczenyj >> Linux User #405772 >> >> http://about.me/peczenyj >> >> =begin disclaimer >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >> SaoPaulo-pm mailing list: [email protected] >> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >> =end disclaimer >> >> >
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
