Now that you have DB_File installed, you could also test what happens when you open/tie your 5-yr-old data file as a plain-vanilla DB_File hash, just to make sure it's still readable, and to get a look at what the keys and values are.
UPDATE: In case it helps, here's a quick/easy way to dump out the contents of a DB_File hash:
Redirect STDOUT to some other file. It will have records delimited by "\n;\n", and each record will have at least two lines of data, the first line being the hash key (preceded by "key: ") and the second line (plus any additional lines preceding "\n;\n") being the value for that key.use strict; use DB_File; my $Usage = "Usage: $0 db_file_name\n"; die $Usage unless ( @ARGV == 1 and -f $ARGV[0] ); my %file_hash; tie ( %file_hash, 'DB_File', $ARGV[0] ) or die "DB_File: $ARGV[0]: $!"; while ( my ( $key, $val ) = each %file_hash ) { print "key: $key\n$val\n;\n"; } untie %file_hash;
(another update: this assumes that your key strings do not contain line-breaks while you values might; in any case, you could also transliterate things to suit your taste -- e.g. s/(\p{IsCntrl})/sprintf("0x{%02x}",ord($1))/ge; or something like that.)
In reply to Re^3: MLDMB Problem
by graff
in thread MLDBM Problem
by cormanaz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |