<div dir="ltr">tenta entrar nessa mesma maquina que você esta tentando executar o .pl e conectar via linha de comando (usando o /etc/mysql no linux). se você conseguir, ai é alguma coisa no perl, provavelmente nao</div><div class="gmail_extra">

<br><br><div class="gmail_quote">On Tue, May 21, 2013 at 11:57 AM, Marcio Souza <span dir="ltr"><<a href="mailto:marcio_runner@hotmail.com" target="_blank">marcio_runner@hotmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">




<div><div dir="ltr">Ola, Grupo.<div><br></div><div><br></div><div>   Quanto ao comando GRANT no mysql foi a 1a. coisa que fiz, mas tenho uma outra aplicação em C++ que esta conectando normalmente com o mesmo usuário e senha. Abaixo vou postar o código que estou usando para teste.</div>

<div><br></div><div>   Obs: se acesso a maquina do IP abaixo localmente, trocando o ip por localhost, consigo normalmente fazer a conexão e extrair os dados.</div><div><br></div><div><br></div><div><div>#!/usr/bin/perl</div>

<div><br></div><div>use strict;</div><div>use DBI;</div><div><br></div><div>my $dbh = DBI->connect(          </div><div>    "dbi:mysql:dbname=mydb;host=192.168.0.107", </div><div>    "usuario",                          </div>

<div>    "senha",                          </div><div>    { RaiseError => 1 },         </div><div>) or die $DBI::errstr;</div><div><br></div><div>my $sth = $dbh->prepare("SELECT VERSION()");</div>

<div>$sth->execute();</div><div><br></div><div>my $ver = $sth->fetch();</div><div><br></div><div>print @$ver;</div><div>print "\n";</div><div><br></div><div>$sth->finish();</div><div>$dbh->disconnect();</div>

<br><div>> Date: Tue, 21 May 2013 10:56:54 -0300<br>> From: <a href="mailto:andre@andrewalker.net" target="_blank">andre@andrewalker.net</a><br>> To: <a href="mailto:saopaulo-pm@mail.pm.org" target="_blank">saopaulo-pm@mail.pm.org</a><br>

> Subject: Re: [SP-pm] DBI:mysql erro na conexão<div><div class="h5"><br>> <br>> On Tue, May 21, 2013 at 10:31:57AM -0300, Ricardo Stock wrote:<br>> > Executa este comando no mysql para liberar o acesso GRANT ALL PRIVILEGES ON<br>

> > *.* TO usuario@'%' IDENTIFIED BY 'senha de acesso' WITH GRANT OPTION;<br>> <br>> *medo*<br>> <br>> <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" target="_blank">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></div></div></div></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><br><br clear="all"><div><br></div>-- <br><div><span style="color:rgb(51,51,51);font-size:x-small">Saravá,</span></div><div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div>

<div><div style="text-align:right"><font size="1" color="#333333"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div></div><div style="text-align:right"><font size="1" color="#333333"><a href="http://twitter.com/#!/renato_cron" target="_blank">@renato_cron</a></font></div>


</div>