[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