[Cascavel-pm] Duvida com DBI

[Marco Lima]

Salve Lorn !

> E ai pessoal blz? tenho o seguinte codigo
> my 
dbh=DBI->connect("dbi:Pg:dbname=$bpg_db;host=$bpg_domain",$bpg_username,$bpg_pwd)
> or &FatalError("Can't connect to SQL");
> $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)
> {
>         $fqdn{$host}="$host";
>     #    printf "$fqdn{$host}\n";
>         my
$dbh_mysql=DBI->connect("dbi:mysql:dbname=$mysql_db;host=$bpg_domain",$mysql_user,$mysql_pass)
> or &FatalError("Can't connect to Mysql");

Abra o Handle fora do while senão vc terá várias conexões abertas.

>         $sth_sql = $dbh_mysql->prepare("select * from tbStats where 
> day = '2005-03-22' and host like 'www.$host.%teste.com.br'" );
> ## MEU PROBLEMA ESTÁ AQUI, QUERO PEGAR SOMENTE OS HOSTS DO $host pra
> poder pegar apenas os que estão com active='Y' , é possivel fazer
> isso? é muita gambiarra? se tivesse um jeito de andar no hash  
> $fqdn{$host}="$host"; meu problema seria resolvido com mais "classe"
> mas não como posso "andar" nele. valeu.

Pd não usar um array ... como uma lista ? não vi sentido no seu hash !

>         $sth_sql->execute or &FatalError("cant query Mysql");
>         while (($day,$host_sql,$hits,$kbytes) = $sth->fetchrow_array)
>         {
>                 print "$host_sql usou $kbytes\n";
>         }
>         $sth_sql->finish;
>         $dbh_mysql->disconnect;
> 
> 
> 
> 
> }
> 
> $sth->finish;
> $dbh->disconnect;
> 
> 
> -- 
> Lorn 
> - Slackware Linux
> www.slackwarezine.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