[SP-pm] Moduo Encode
Lucas Oliveira
lucasmateus.oliveira at gmail.com
Thu Oct 3 05:34:14 PDT 2013
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" <ricardostock em bol.com.br> 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: SaoPaulo-pm em pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20131003/8c0b6153/attachment-0001.html>
More information about the SaoPaulo-pm
mailing list