<div dir="ltr"><jabá><a href="http://sao-paulo.pm.org/artigo/2011/PERLEUNICODEENTREOUTRASCODIFICACOESDETEXTO">http://sao-paulo.pm.org/artigo/2011/PERLEUNICODEENTREOUTRASCODIFICACOESDETEXTO</a></jabá></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 dir="ltr">
<div dir="ltr">
<div style="font-size:10pt;font-family:'Verdana'">
<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><span class="HOEnZb"><font color="#888888">
<div> </div>
<div style="font-size:10pt;font-family:'Verdana'">Ricardo
Stock<br><a href="http://www.stocksistemas.com.br" target="_blank">http://www.stocksistemas.com.br</a></div></font></span></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></div>