Help for this page

Select Code to Download


  1. or download this
    use Storable qw(freeze thaw);
...
$buffer = freeze($obj);
  2. or download this
    $newInstance = thaw($buffer);
  3. or download this
    sub store {
    my $obj = shift;
    my $key = $obj->key;
...
    }
    return undef;
}
  4. or download this
    store \%table, 'file';
$hashref = retrieve('file');
  5. or download this
    store_fd \@array, \*STDOUT;
nstore_fd \%table, \*STDOUT;
$aryref = fd_retrieve(\*SOCKET);
$hashref = fd_retrieve(\*SOCKET);