11 - Storable

Serialise data structures to disk efficiently

use Storable qw(store);

\%color = ('Blue' => 0.1, 'Red' => 0.8, 'Black' => 0, 'White' => 1);

store(\%color, 'mycolors') 
  or die "Can't store %color in mycolors!\n";



use Storable qw(retrieve);

$colref = retrieve('mycolors') 
  or die "Can't retrieve from mycolors!\n";

print "Blue is still $colref->{'Blue'}\n";