ЭЛЕКТРОННАЯ БИБЛИОТЕКА КОАПП |
Сборники Художественной, Технической, Справочной, Английской, Нормативной, Исторической, и др. литературы. |
14.8. Storing Complex Data in a DBM FileProblemYou want values in a DBM file to be something other than scalars. For instance, you use a hash of hashes in your program and want to store them in a DBM file for other programs to access, or you want them to persist across process runs. SolutionUse the CPAN module MLDBM to values more complex values than strings and numbers. use MLDBM 'DB_File'; tie(%HASH, 'MLDBM', [... other DBM arguments]) or die $!; DiscussionMLDBM uses Data::Dumper (see Recipe 11.14) to convert data structures to and from strings so that they can be stored in a DBM file. It doesn't store references, instead it stores the data that the references refer to: # %hash is a tied hash
$hash{"Tom Christiansen"} = [ "book author", 'tchrist@perl.com' ];
$hash{"Tom Boutell"} = [ "shareware author", 'boutell@boutell.com' ];
# names to compare
$name1 = "Tom Christiansen";
$name2 = "Tom Boutell";
$tom1 = $hash{$name1}; # snag local pointer
$tom2 = $hash{$name2}; # and another
print "Two Toming: $tom1 $tom2\n";
Each time MLDBM retrieves a data structure from the DBM file, it generates a new copy of that data. To compare data that you retrieve from a MLDBM database, you need to compare the values within the structure: if ($tom1->[0] eq $tom2->[0] && $tom1->[1] eq $tom2->[1]) { print "You're having runtime fun with one Tom made two.\n"; } else { print "No two Toms are ever alike.\n"; } This is more efficient than: if ($hash{$name1}->[0] eq $hash{$name2}->[0] && # INEFFICIENT $hash{$name1}->[1] eq $hash{$name2}->[1]) { print "You're having runtime fun with one Tom made two.\n"; } else { print "No two Toms are ever alike.\n"; } Each time we say Current limitations of Perl's $hash{"Tom Boutell"}->[0] = "Poet Programmer"; # WRONG Always get, change, and set pieces of the stored structure through a temporary variable: $entry = $hash{"Tom Boutell"}; # RIGHT $entry->[0] = "Poet Programmer"; $hash{"Tom Boutell"} = $entry; If MLDBM uses a database with size limits on values, like SDBM, you'll quickly hit those limits. To get around this, use GDBM_File or DB_File, which don't limit the size of keys or values. DB_File is the better choice because it is byte-order neutral, which lets the database be shared between both big- and little-endian architectures. See AlsoThe documentation for the Data::Dumper, MLDBM, and Storable modules from CPAN; Recipe 11.13; Recipe 14.9 |