Help for this page

Select Code to Download


  1. or download this
    my %stages;
$stages{job_choice}->{status}->{val}="";
...
store \%stages, 'stages.test';
my $hashref = retrieve('stages.test'); # not good : result is a scalar
my %hashref1 = %{do retrieve('stages.test')}; # This does the job but 
+it reports an error message.
  2. or download this
    my %hashref = %{retrieve('stages.test')};