Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...
$serial_data_for->@{@keys} = @vals;

store($serial_data_for, $hashfile);
  2. or download this
    #!/usr/bin/env perl

...
$serial_data_for->@{@keys} = @vals;

store($serial_data_for, $hashfile);
  3. or download this
    ken@titan ~/tmp
$ rm pm_11148149_storable_first_run.sto
...

ken@titan ~/tmp
$
  4. or download this
    sub DoIHaveThisData {
    my ($hash, $key) = @_;
    return exists $hash->{$key};
}