Next Lightweight Databases 48

Void Fields

        sub build_index_for_users {
          my ($fh, $index_fh) = @_;
          seek $fh, 0, SEEK_SET;
          my $pos = tell $fh;
          my @position;
          while (<$fh>) {
            my $uid = (split /:/)[1];
            $position[$uid] = $pos;
            $pos = tell $fh;
          }


Next Copyright © 2003 M. J. Dominus