Help for this page

Select Code to Download


  1. or download this
    $staffdept{$staff}
    $appstaffwk{$app}{$staff}
    
  2. or download this
    use MLDBM qw(DB_File Storable);
    tie %staffdept, 'MLDBM', $staffdeptfile, O_CREAT|O_RDWR, 0640 or die $
    +!;
    tie %appstaffwk, 'MLDBM', $appstaffwkdb, O_CREAT|O_RDWR, 0640 or die $
    +!;