[SP-pm] Moduo Encode

[Ricardo Stock]

Ola Lucas, este é o exemplo classico que esta no cpan, devo estar fazendo algo errado, pois não esta funcionando. mesmo assim vou tentar novamente com seu código no lugar do meu.

vale lembrar que.

Estou imprimindo via web e tenho a certeza de estar colocando nos headres da pagina <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

Recebo a string via LWP, por isto criei uma função em um arquivo ex: lib_converte_uft8.pl onde no arquivo principal que esta imprimindo a string, antes de imprimir faço a conversão.

ou seja, esta é a sequincia

$string=busca_via_LPW($string);
$string=converte($string);

print $string;


mas continua imprimindo em utf8.

Por exemplo a palavra são vem S\u00e3o e deveria ficar São

Acho que o erro deva estar durante a passagem entre o recebimento via LWP. Acho que vou tentar converter para ascii, neste caso os acentos não serão iportantes, nem mesmo o ç. 

Mesmo assim vou continuar pesquisando... já ta rolando uma semana. 


Mas Obrigado.



From: Lucas Oliveira 
Sent: Thursday, October 03, 2013 9:34 AM
To: saopaulo-pm em mail.pm.org 
Subject: Re: [SP-pm] Moduo Encode


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





--------------------------------------------------------------------------------
=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/5c80457b/attachment.html>