Help for this page

Select Code to Download


  1. or download this
    open (FILE, "$record") or die "can't open $record: $!";
my @record = reverse <FILE>;
close FILE;
  2. or download this
    %member = ( $timestamp => 
   [$current_time, $funds, $action, $current_funds]);
  3. or download this
    $member{$timestamp} = 
   [$current_time, $funds, $action, $current_funds];