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
