Next Lightweight Databases 37

Gappy Files

        sub modify {
        ... continued ...
          } else { # New record is too big
            my $fill = "\0" x length($oldrec);
            print $fh $fill;
            seek $fh, 0, SEEK_END;  # New record goes at the end
            print $fh $rec, "\n";
          }
        }


Next Copyright © 2003 M. J. Dominus