<br><div><span class="gmail_quote">2006/10/6, Joenio Marques <<a href="mailto:joenio@gmail.com">joenio@gmail.com</a>>:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Senao me engano ao utilizar encoding=utf8 vc está informando que suas<br>entradas e saídas estão em UTF8... No meu problema, a entrada está em<br>latin1 (num arquivo externo).<br></blockquote></div><br>Testei aqui e funcionou:
<br><br>encoding-test.pl<br>---cut---<br>#!perl<br><br>use encoding 'utf8';<br><br># abre o arquivo com encoding iso-8859-1<br>open my $fh, "<:encoding(iso-8859-1)", "latin1.txt" or die $!;<br><br># pega todo o conteudo do arquivo de uma vez
<br>my $contents = do {<br> local $/ = undef;<br> chomp( $_ = <$fh> );<br> $_;<br>};<br>close $fh;<br><br>print $contents;<br>print lc $contents;<br><br>---cut---<br><br>-- <br>Igor Sutton Lopes <<a href="mailto:igor.sutton@gmail.com">
igor.sutton@gmail.com</a>>