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->connect("DBI:mysql:database=$database;host=$host", $user, $pw ) || die print $DBI::errstr; </div>
<div> $dbh->{RaiseError} = 1;</div><div><span style="white-space:pre">        </span> $sth = $dbh->prepare(" SELECT numero FROM numeros WHERE numero LIKE \"%$_[0]%\" ");</div>
<div> $sth->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>"Though we live in trying times, we're the ones who have to try"<br>
</div>