<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, &quot;&lt;&quot;, &quot;latin1.txt&quot; or die $!;<br><br># pega todo o conteudo do arquivo de uma vez
<br>my $contents = do {<br>&nbsp;&nbsp;&nbsp; local $/ = undef;<br>&nbsp;&nbsp;&nbsp; chomp( $_ = &lt;$fh&gt; );<br>&nbsp;&nbsp;&nbsp; $_;<br>};<br>close $fh;<br><br>unless ( utf8::is_utf8($contents) ) {<br>&nbsp;&nbsp;&nbsp; $contents = decode( &quot;Guess&quot;, $contents );<br>
}<br>print $contents;<br>print lc $contents;<br>---cut---<br><br>Maiores informações em &quot;perldoc Encode::Guess&quot;.<br><br>-- <br>Igor Sutton Lopes &lt;<a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>
&gt;