<div>Olá pessoal</div>
<div> </div>
<div>Estou utilizando a versão 5.10 do PERL.</div>
<div> </div>
<div>Meu problema é o seguinte, no script abaixo não funciona o WHERE com campo número, (não mostra nenhum erro, simplesmente &quot;trava&quot;) se eu modificar o select filtrando por um campo string exemplo WHERE nome = &#39;nome&#39; ai funciona, alguém sabe como resolver isso ?  </div>

<div> </div>
<div>use DBI;<br>   <br>    $dsn = &quot;dbi:mysqlPP:database=$database;host=$hostname&quot;;</div>
<div>    $dbh = DBI-&gt;connect($dsn, $user, $password);</div>
<div>     </div>
<div>    $sth = $dbh-&gt;prepare(qq{SELECT * FROM &lt;tabela&gt; WHERE id = 1) ;<br>    $sth-&gt;execute() ;</div>
<div>    while (my $ref = $sth-&gt;fetchrow_arrayref()) {<br>       print $ref-&gt;[0];<br>    }</div>
<div>    $sth-&gt;finish;   </div>
<div> </div>
<div> </div>
<div>Obrigado</div>
<div> </div>