Lightweight Databases

Generic Text Indices

Sometimes the index number is just the record number:

        sub build_index_for_text {
          my ($fh, $index_fh) = @_;
          seek $fh, 0, SEEK_SET;
          seek $index_fh, 0, SEEK_SET;
          truncate $index_fh, 0;       # Discard old index
          my $pos = tell $fh;
          while (<$fh>) {
            print $index_fh, pack "A10", $pos;
            $pos = tell $fh;
          }
        }