Tente isso.
sub utf8_to_iso {
use Encode;
my ($string) = @_;
eval {
$string = decode('utf8', $string, Encode::FB_CROAK);
$string = encode('iso-8859-1', $string)
};
return $string;
}
Em 03/10/2013, às 08:29, "Ricardo Stock" <[email protected]> escreveu:
> Bom dia a todos.
>
> Pessoal estou tentando utilizar o modulo Encode para a conversão de utf8
> para iso, porem não estou conseguindo, segue trecho do codigo.
>
> sub Converte {
> use Encode;
> my $string=undef;
> ($string)=@_;
> $string= decode_qp($string);
> $string=encode('iso-8859-1', $string);
>
> return $string;
> }
>
>
> porem continua e imprimir em utf8.
>
> Qlguma dica.
>
> Obrigado
>
> Ricardo Stock
> http://www.stocksistemas.com.br
> =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
