<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Verdana'; COLOR: #000000; FONT-SIZE: 10pt">
<DIV>Ola Stan, eu já havia lido seu artigo sobre codificação. mesmo assim 
obrigado</DIV>
<DIV 
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=creaktive@gmail.com 
href="mailto:creaktive@gmail.com">Stanislaw Pusep</A> </DIV>
<DIV><B>Sent:</B> Thursday, October 03, 2013 9:07 AM</DIV>
<DIV><B>To:</B> <A title=saopaulo-pm@mail.pm.org 
href="mailto:saopaulo-pm@mail.pm.org">saopaulo-pm@mail.pm.org</A> </DIV>
<DIV><B>Subject:</B> Re: [SP-pm] Moduo Encode</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV 
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<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 
style="BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex; PADDING-LEFT: 1ex" 
class=gmail_quote>
  <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><SPAN class=HOEnZb><FONT color=#888888>
  <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></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>
<DIV> </DIV></DIV>
<P>
<HR>
=begin disclaimer<BR>   Sao Paulo Perl Mongers: 
http://sao-paulo.pm.org/<BR>SaoPaulo-pm mailing list: 
SaoPaulo-pm@pm.org<BR>L<http://mail.pm.org/mailman/listinfo/saopaulo-pm><BR>=end 
disclaimer<BR></DIV></DIV></DIV></BODY></HTML>