<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 "trava") se eu modificar o select filtrando por um campo string exemplo WHERE nome = 'nome' ai funciona, alguém sabe como resolver isso ? </div>
<div> </div>
<div>use DBI;<br> <br> $dsn = "dbi:mysqlPP:database=$database;host=$hostname";</div>
<div> $dbh = DBI->connect($dsn, $user, $password);</div>
<div> </div>
<div> $sth = $dbh->prepare(qq{SELECT * FROM <tabela> WHERE id = 1) ;<br> $sth->execute() ;</div>
<div> while (my $ref = $sth->fetchrow_arrayref()) {<br> print $ref->[0];<br> }</div>
<div> $sth->finish; </div>
<div> </div>
<div> </div>
<div>Obrigado</div>
<div> </div>