Displaying 1 result from an estimated 1 matches for "dbmopen".
Did you mean:
db_open
2006 Feb 13
0
Perl DBM problem...
...DB (Hash, version 5, native byte-order)
wire.db: Berkeley DB (Hash, version 5, native byte-order)
If I run the following Perl test script ...
#!/usr/bin/perl
#
#
if ($ARGV[0] eq "") {
print "\n * * give me a DBM file name to dump (no DBM extension) * *\n";
exit;
}
dbmopen (%dumpfile, $ARGV[0], 0400) || die "Can't open DB file!" ;
foreach $line (sort keys %dumpfile) {
print <<END1;
$line - $dumpfile{$line}
END1
}
dbmclose (%dumpfile);
Running that against any of the BDB files on the old RH 7.3 system
dumps the file's data successfully....