Next Lightweight Databases 21

Adding Records

        Add record              S
        Append to beginning     S
        Append to middle        S
        Append to end           1
        sub add_user {
          my ($file, $new_user_data) = @_;
          local *F;
          open F, ">>", $file or return;
          print F $new_user_data, "\n";
        }


Next Copyright © 2003 M. J. Dominus