Help for this page

Select Code to Download


  1. or download this
    open (DFH,">",DATADIR.$key) or die;
print DFH "$_=>$record{$_}\n" foreach (keys %record);
close DFH;
  2. or download this
    open (DFH,"<",DATADIR.$key) or die $key;
my %record = split(/=>|\n/o,<DFH>);
close DFH;