Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

my $valref = retrieve($file);
print "$val $$valref\n";
  2. or download this
    use strict;
use warnings;
...

my $r = retrieve($file);
print $$r, "\n";
  3. or download this
    Retrieving store.ubu
Long integer size is not compatible at C:/_64/perl522_492/lib/Storable
+.pm line 383, at retrieve.pl line 9.
  4. or download this
    if ((int) *current++ != sizeof(long))
to
if ((int) *current++ != sizeof(IV))
  5. or download this
    Retrieving store.ubu
12345678