<div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Isso aqui também funcionou, só não sei como adaptar isso ao minha<br>situação real aqui... nao sei em que encoding a entrada virá, a
<br>entrada vem de uma requisição GET/POST.<br></blockquote></div><br>É por isso que existe o Encode::Guess :-) Aí vai uma nova versão:<br><br>---cut---<br>#!perl<br><br>use strict;<br>use warnings;<br><br>use Encode;<br>
use Encode::Guess qw/iso-8859-1 utf8/;<br>use encoding 'utf8';<br><br># abre o arquivo com encoding iso-8859-1<br>open my $fh, "<", "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>unless ( utf8::is_utf8($contents) ) {<br> $contents = decode( "Guess", $contents );<br>
}<br>print $contents;<br>print lc $contents;<br>---cut---<br><br>Maiores informações em "perldoc Encode::Guess".<br><br>-- <br>Igor Sutton Lopes <<a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>
>