[Cascavel-pm] Duvida com DBI

[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");
        $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.
        $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