[Cascavel-pm] Problemas com o tie ...

Lorn lorn.br em gmail.com
Quinta Maio 5 13:03:33 PDT 2005


Apesar de não entender muito bem como funciona o tie, estou mexendo
num programa já pronto aqui na empresa.
uma parte dele
$db_fn == caminho pro banco
$db_mode = O_RDWR

tie (%h, 'DB_File', "$db_fn", $db_mode, 0644) or die "cant create DB $db_fn";

#print %h;
$sth = $dbh->prepare("select login from tb_user_users" );

$sth->execute or &FatalError("cant query SQL");

while (($host) = $sth->fetchrow_array)
{
        &Debug("[FETCH] $host, $domain",3) ;

        $fqdn = "www.$host.$domain";
        #print $fqdn;

        &Debug("[DB] $fqdn",2) ;

}

$sth->finish;

untie %h;

até aí blz, ele cria o arquivo .db todo estranho e talz, só que tem
outro programa que chama-se "showallkeys.pl"

#!/usr/bin/perl

use DB_File;
use Fcntl;

$db_fn = shift;

tie (%h, 'DB_File', "$db_fn",O_RD) or die "can't tie $db_fn";

foreach $key (keys %h)
{
print "$key -> $h{$key}\n";
}
untie %h;

Esse "descriptografa" o .db mostrando coisas que todo mundo entende.

Ele funciona pro .db criado pelo programa original, mas pro que eu
criei ele dá esse erro:
Argument "O_RD" isn't numeric in subroutine entry at
/usr/lib/perl5/5.6.1/i386-linux/DB_File.pm line 262.

Alguem tem ideia do que pode ser? 





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


Mais detalhes sobre a lista de discussão Cascavel-pm