Storable 0.3 Copyright (c) 1995-1997, Raphael Manfredi ------------------------------------------------------------------------ This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, a copy of which can be found with perl. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the Artistic License for more details. ------------------------------------------------------------------------ *** This is alpha software -- use at your own risks *** The Storable extension brings persistency to your data. You may recursively store to disk any data structure, no matter how complex and circular it is, provided it contains only SCALAR, ARRAY, HASH and references to those items, blessed or not. At a later stage, or in another program, you may retrieve data from the stored file and recreate the same hiearchy in memory. If you had blessed references, the retrieved references are blessed into the same package, so you must make sure you have access to the same perl class than the one used to create the relevant objects. For instance: use Storable; $scalar = 'scalar'; $hash{$scalar} = 'value'; $ref = \%hash; @array = ('first', undef, $scalar, $ref, \$ref); &show(\@array); store(\@array, 'store'); $root = retrieve('store'); print '-' x 10, "\n"; &show($root) if ref($root) eq 'ARRAY'; sub show { my ($aref) = @_; foreach $i (@{$aref}) { unless (defined $i) { print "undef\n"; next; } print "$i"; print " ($$i)" if ref($i) eq 'SCALAR'; print "\n"; } } when run on my machine produces: first undef scalar HASH(0x4001eec0) SCALAR(0x4001ee60) ---------- first undef scalar HASH(0x40021fd4) SCALAR(0x40017008) You can see that items are retrieved in memory at some other place, but the topology of the retrieved data is the same as the original. I had first written Storable in Perl, but the results were disappointing, because it took almost 20 seconds to store 200K worth of data. By having the heart of Storable in C, I can store the same amount of data in about 0.6 seconds. To retrieve the same data, it takes roughly 1.0 seconds, because you have to allocate objects in memory whereas storing merely traverses structures. More accurately, using Benchmark, I get (for a 236802 byte long stored file): Machine Time to store Time to retrieve (cpu + sys) (cpu + sys) HP 9000/712 0.61 s 1.02 s HP 9000/856 0.33 s 0.39 s To store/retrieve the "Magic: The Gathering" (MTG) database (1.9 Mb) in native format: Machine Time to store Time to retrieve (cpu + sys) (cpu + sys) HP 9000/712 1.95 s 2.19 s That's roughly 1Mb/s for store and 0.86Mb/s for retrieve. To compile this extension, run: perl Makefile.PL [PERL_SRC=...where you put perl sources...] make make install There is an embeded POD manual page in Storable.pm. Raphael Manfredi Thanks to: Jarkko Hietaniemi Ulrich Pfeifer for their contributions.