[Cascavel-pm] Duvida com DBI

[Lorn]

Eu ia perguntar justamente isso, porque meu array não está sendo preenchido
$sth->execute or &FatalError("cant query SQL");
while (($host) = $sth->fetchrow_array)
{
        @hosts="$host";
}

#$sth->finish;
$dbh->disconnect;
print @hosts;

Se eu colocar o print @hosts dentro do while funciona, mas fora não,
acho que estou sobreescrevendo o array
Marcos eu tentei fazer do jeito que voce falou até achei legal a
ideia, mas meu array fica só com isso "ARRAY(0x9e49614)"
não sei porque.
On 5/12/05, Marco Lima <marco.lima em e-via.com.br> wrote:
> Para ficar mais emocionante e "rápido" :
> 
> >> $sth = $dbh->prepare("SELECT login FROM tblala WHERE teste =
> >> 'alguamcoisa' and active = 'Y' ; " );
> >>
> >> $sth->execute or &FatalError("cant query SQL");
> >> while (($host) = $sth->fetchrow_array)
> >> {
> 
> @array = $dbh->selectall_arrayref("SELECT login " .
>                                    "  FROM tblala " .
>                                    " WHERE teste = 'alguamcoisa'" .
>                                    "   AND active = 'Y' ");
> 
> ## Retorna um array de referências dos valores consultados
> 
> 
> >
> > --- Lorn <lorn.br em gmail.com> escreveu:
> > > Entao como vou fazer o for / while?
> > > geralmente faria
> > > for i=0;i<10;i++
> > >     print $array[i];
> > > Mas como vou fazer pra imprimir item a item do
> > > array?
> >
> > Desculpe, eu apaguei o código original. Eu imagino que
> > você queria receber uma resposta do banco em um array.
> > Se não era isso, então por favor ignore meu
> > comentário.
> >
> > Agora se for isso mesmo... esqueça o for e use
> > foreach.
> >
> > foreach (@array_de_resposta) {
> >
> >     print;
> >
> > }
> >
> > Você pode usar o map também para fazer isso:
> >
> > map { print } @array_de_resposta;
> >
> > []'s
> >
> >
> > Alceu Rodrigues de Freitas Junior
> > --------------------------------------
> > glasswalk3r em yahoo.com.br
> > http://www.imortais.cjb.net
> > -----------------------------------------------------------------------
> > A well-used door needs no oil on its hinges.
> > A swift-flowing stream does not grow stagnant.
> > Neither sound nor thoughts can travel through a vacuum.
> > Software rots if not used.
> > These are great mysteries -- The Tao Of Programming, 5.1
> >
> >
> >
> >
> >
> > ____________________________________________________Yahoo! Mail, cada
> vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> 
> Marco Lima
> J. A. P. H.
> 
> marco.lima em e-via.com.br
> mago em rio.pm.org
> 
> +55 19 96 56 06 46
> 
> Sociedade Perl do Brasil   |   http://www.perl.org.br
> Perl Monks                 |   http://www.perlmonks.org
> Brasil Perl Mongers        |   http://brasil.pm.org
> 
> Register Linux User #355235
> Slackware Linux, for the subgenius
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 


-- 
Lorn 
- Slackware Linux
www.slackwarezine.com.br