Jefferson,<div><br></div><div><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div>#Consultando banco de dados.</div><div>sub consulta_banco { </div>

<div><span style="white-space:pre">        </span> $dbh = DBI-&gt;connect(&quot;DBI:mysql:database=$database;host=$host&quot;, $user, $pw )  || die print $DBI::errstr; </div>


<div>         $dbh-&gt;{RaiseError} = 1;</div><div><span style="white-space:pre">        </span> $sth = $dbh-&gt;prepare(&quot; SELECT numero FROM numeros WHERE numero LIKE \&quot;%$_[0]%\&quot; &quot;);</div>
<div>         $sth-&gt;execute() ;</div><div>}<span style="white-space:pre">        </span></div></blockquote><div><br></div><div>Por curiosidade... por que você abre a conexão ao banco de dados toda vez? Não é mais fácil fazer um esquema que deixa a conexão aberta, e vai usando? Daí caso a conexão caia você reabre, e deixa aberta novamente...</div>

<div><br></div><div>Outra coisa: use o <a href="http://pastebin.com/">http://pastebin.com/</a> para mandar código. É bem melhor que tentar acertar formatação na lista ;-)</div><div><br></div><div>just my $0.02</div><div>
<br>
</div></div>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>&quot;Though we live in trying times, we&#39;re the ones who have to try&quot;<br>


</div>