<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Verdana'; COLOR: #000000; 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'; COLOR: #000000; FONT-SIZE: 10pt">Ricardo
Stock<BR>http://www.stocksistemas.com.br</DIV></DIV></DIV></BODY></HTML>