[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