Kinda CentOS related so bear with me. :)
We have little legacy perl app on an old RH 7.3 box I'm trying to migrate over to a CentOS 4 system. Some information the app uses is in Berkley DB format
[root@korma data]# file *.db applic.db: Berkeley DB (Hash, version 5, native byte-order) cables.db: Berkeley DB (Hash, version 5, native byte-order) connector.db: Berkeley DB (Hash, version 5, native byte-order) equipment.db: Berkeley DB (Hash, version 5, native byte-order) hood.db: Berkeley DB (Hash, version 5, native byte-order) interface.db: Berkeley 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.
Copy everything over to the CentOS system
[root@willspc data]# file *.db applic.db: Berkeley DB (Hash, version 5, native byte-order) cables.db: Berkeley DB (Hash, version 5, native byte-order) connector.db: Berkeley DB (Hash, version 5, native byte-order) equipment.db: Berkeley DB (Hash, version 5, native byte-order) hood.db: Berkeley DB (Hash, version 5, native byte-order) interface.db: Berkeley DB (Hash, version 5, native byte-order) wire.db: Berkeley DB (Hash, version 5, native byte-order)
Run the script again, e.g...
[root@willspc data]# ./dump.pl cables [root@willspc data]# file cables* cables: Berkeley DB (Hash, version 7, native byte-order) cables.db: Berkeley DB (Hash, version 5, native byte-order)
And it dumps a new BDB with version 7, no other output. Stracing the process shows it's using DB_File.pm
I'm a bit stumped as to what to try next.
Will.