<div dir="ltr">Então,<div><br></div><div>no perl, quando você lê um texto, você deveria indicar qual o encoding de origem, para que o perl saiba como tratar esse texto (ele vai converter para um encoding proprio [shiuu, é utf-8 mas vc nao precisa saber disso])</div>
<div><br></div><div>e na hora que você for escrever, você diz qual encoding você quer escrever, e ai o perl lê do encoding dele e transforma no desejado.</div><div><br></div><div>Isso funciona lindamente, quando você faz tudo certo!</div>
<div><br></div><div>Sem postar seu codigo inteiro ou as partes que você lê e como você ta verificando, vai ficar complicado de avaliar, porque nós não estamos no mesmo ambiente que você para poder testar</div><div><br></div>
<div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/10/3 Ricardo Stock <span dir="ltr"><<a href="mailto:ricardostock@bol.com.br" target="_blank">ricardostock@bol.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div style="WORD-WRAP:break-word" dir="ltr">
<div dir="ltr">
<div style="font-size:10pt;font-family:'Verdana'">
<div>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.</div>
<div> </div>
<div>vale lembrar que.</div>
<div> </div>
<div>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" /></div>
<div> </div>
<div>Recebo a string via LWP, por isto criei uma função em um arquivo ex:
<a href="http://lib_converte_uft8.pl" target="_blank">lib_converte_uft8.pl</a> onde no arquivo principal que esta imprimindo a string,
antes de imprimir faço a conversão.</div>
<div> </div>
<div>ou seja, esta é a sequincia</div>
<div> </div>
<div>$string=busca_via_LPW($string);</div>
<div>$string=converte($string);</div>
<div> </div>
<div>print $string;</div>
<div> </div>
<div> </div>
<div>mas continua imprimindo em utf8.</div>
<div> </div>
<div>Por exemplo a palavra são vem S\u00e3o e deveria ficar São</div>
<div> </div>
<div>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 ç. </div>
<div> </div>
<div>Mesmo assim vou continuar pesquisando... já ta rolando uma semana. </div>
<div> </div>
<div> </div>
<div>Mas Obrigado.</div>
<div> </div>
<div> </div>
<div style="font-size:small;font-style:normal;text-decoration:none;font-family:'Calibri';display:inline;font-weight:normal">
<div style="FONT:10pt tahoma">
<div> </div>
<div style="BACKGROUND:#f5f5f5">
<div><b>From:</b> <a title="lucasmateus.oliveira@gmail.com" href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">Lucas Oliveira</a> </div>
<div><b>Sent:</b> Thursday, October 03, 2013 9:34 AM</div><div class="im">
<div><b>To:</b> <a title="saopaulo-pm@mail.pm.org" href="mailto:saopaulo-pm@mail.pm.org" target="_blank">saopaulo-pm@mail.pm.org</a> </div>
<div><b>Subject:</b> Re: [SP-pm] Moduo Encode</div></div></div></div>
<div> </div></div>
<div style="font-size:small;font-style:normal;text-decoration:none;font-family:'Calibri';display:inline;font-weight:normal">
<div> </div><div><div class="h5">
<div><span style="white-space:pre-wrap"></span>Tente
isso.</div>
<div> </div>
<div><span style="white-space:pre-wrap"></span>sub utf8_to_iso
{</div>
<div> use
Encode;</div>
<div> my
($string) = @_;</div>
<div> eval
{</div>
<div>
$string = decode('utf8', $string, Encode::FB_CROAK);</div>
<div>
$string = encode('iso-8859-1', $string)</div>
<div> };</div>
<div> return
$string;</div>
<div> }</div>
<div> </div>
<div> </div>
<div>
<div>Em 03/10/2013, às 08:29, "Ricardo Stock" <<a href="mailto:ricardostock@bol.com.br" target="_blank">ricardostock@bol.com.br</a>>
escreveu:</div><br>
<blockquote type="cite">
<div dir="ltr">
<div dir="ltr">
<div style="FONT-FAMILY:verdana;FONT-SIZE:10pt">
<div> Bom dia a todos.</div>
<div> </div>
<div> Pessoal estou tentando utilizar o modulo Encode
para a conversão de utf8 para iso, porem não estou conseguindo, segue
trecho do codigo.</div>
<div> </div>
<div>sub Converte {</div>
<div> use Encode;</div>
<div> my $string=undef;</div>
<div> ($string)=@_;</div>
<div> $string= decode_qp($string);</div>
<div> $string=encode('iso-8859-1', $string);</div>
<div> </div>
<div> return $string;</div>
<div>}</div>
<div> </div>
<div> </div>
<div>porem continua e imprimir em utf8.</div>
<div> </div>
<div>Qlguma dica.</div>
<div> </div>
<div>Obrigado</div>
<div> </div>
<div style="FONT-FAMILY:verdana;FONT-SIZE:10pt">Ricardo Stock<br><a href="http://www.stocksistemas.com.br" target="_blank">http://www.stocksistemas.com.br</a></div></div></div></div>=begin
disclaimer<br> Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>SaoPaulo-pm
mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end
disclaimer<br></blockquote></div><br>
</div></div><p>
</p><hr><div class="im">
=begin disclaimer<br> Sao Paulo Perl Mongers:
<a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>SaoPaulo-pm mailing list:
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>=end
disclaimer<br></div><p></p></div></div></div></div>
<br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div><span style="color:rgb(51,51,51);font-size:x-small">Saravá,</span></div><div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div>
<div><div style="text-align:right"><font size="1" color="#333333"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div></div><div style="text-align:right"><font size="1" color="#333333"><a href="http://twitter.com/#!/renato_cron" target="_blank">@renato_cron</a></font></div>
</div>