"Não é possível decodificar string com caracteres largos" aparece em um lugar estranho
Eu estou tentando usar o módulo perl XML :: RAI no texto codificado UTF8 e eu ainda tenho erro que eu realmente não entendo ... aqui está o código (não deve fazer nada útil ainda):
use HTTP::Request;
use LWP::UserAgent;
use XML::RAI;
use Encode;
my $ua = LWP::UserAgent->new;
sub readFromWeb{
my $address = shift;
my $request = HTTP::Request->new( GET => $address );
my $response = $ua->request( $request );
return unless $response->code == 200;
return decode("utf8", $response->content());
}
sub readFromRSS{
my $address=shift;
my $content = readFromWeb $address;
my $rai = XML::RAI->parse_string($content);
#this line "causes" the error
}
readFromRSS("http://aktualne.centrum.cz/export/rss-hp.phtml");
#I am testing it on this particular RSS
o erro é:
Cannot decode string with wide characters at /usr/lib/perl5/5.8.8/i686-linux/Encode.pm line 166.
Eu não tenho idéia se é minha culpa ou culpa do XML :: RAI. Não vejo onde esses caracteres largos podem ser, se $ conteúdo já estiver decodificado do utf8 ...
Editar: por algum motivo eu ainda não entendo, removendo a parte "decodificar" realmente resolveu o problema.