Valeu galera!<br><br>Testei agora e a sugestão do Lucas funcionou!!! Obrigado cara!<br><br>[]s Henrique<br><br><div class="gmail_quote">2009/4/13 Lucas Mateus <span dir="ltr">&lt;<a href="mailto:lucasmateus.oliveira@gmail.com">lucasmateus.oliveira@gmail.com</a>&gt;</span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Talvez seja bem simples se vc configurar seu MySQL para UTF8.<br>
<br>
<br>
#!/usr/bin/perl<br>
<br>
use utf8;<br>
no utf8;<br>
<br>
@dados = &amp;getDataMSAccess(); ## funcao que recupera dados do MS Access<br>
<br>
foreach $data (@dados) {<br>
   utf8::encode($data);<br>
   &amp;insetDataMySQL($data);  ## funcao que insere os dados no MySQL<br>
}<br>
<br>
__END__<div class="im"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
On Mon, 13 Apr 2009 16:22:06 -0300, jimmy &lt;<a href="mailto:ronaldo_tgz@yahoo.com.br" target="_blank">ronaldo_tgz@yahoo.com.br</a>&gt; wrote:<br>
<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On Mon, Apr 13, 2009 at 04:01:27PM -0300, Henrique Ribeiro wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
   Caros monges,<br>
<br>
   Estou desenvolvendo um script boladão pra converter uma base de dados MS<br>
   Access pra MySQL. Estou usando perl e já teria terminado a tarefa se os<br>
   malditos caracteres com acento não estivessem todos estragados.<br>
<br>
   Quando eu abro o arquivo com a entrada do script no vim os acentos<br>
   aparecem corretos, mas no perl não.<br>
<br>
   Eu acredito que seja um problema de codificação dos caracteres (utf-8 ou<br>
   iso-8859-1, sei lá). Dei uma procurada no CPAN, mas não encontrei<br>
   exatamente o que estava procurando.<br>
<br>
   -------------------------&gt;8---------------------------------------------------<br>
<br>
   my @vetor = `mdb-export -H ponto.mdb C_FUNCIONAL`;<br>
<br>
   foreach ( @vetor ) {<br>
           my @parts = split /,/;<br>
           print &quot;$parts[0],$parts[1]\n&quot;; # Daqui saem os caracteres ruins<br>
   #       $dbh-&gt;do ( &quot;insert into tabela values ( \&quot;$parts[0]\&quot;,<br>
   \&quot;$parts[1]\&quot; );&quot; );<br>
   }<br>
<br>
   -------------------------&gt;8---------------------------------------------------<br>
<br>
   Alguém tem alguma sugestão?<br>
<br>
   Obrigado,<br>
   Henrique<br>
</blockquote>
<br>
talvez essa entrada no wiki consiga lhe ajudar:<br>
<br>
<a href="http://www.perl.org.br/Artigos/ComoUsarUTF8EOutrosEncodingsEmPerl" target="_blank">http://www.perl.org.br/Artigos/ComoUsarUTF8EOutrosEncodingsEmPerl</a><br>
<br>
<br>
</blockquote>
<br>
<br>
<br>
-- <br></div><font color="#888888">
Lucas Mateus<br>
Núcleo de Páginas Rápidas e SEO<br>
Fone: 55 11 3065-9978<br>
MSN: <a href="mailto:lucasmateus_777@hotmail.com" target="_blank">lucasmateus_777@hotmail.com</a></font><div><div></div><div class="h5"><br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></div></blockquote></div><br>