Next Lightweight Databases 49

Void Fields

          seek $index_fh, 0, SEEK_SET;
          truncate $index_fh, 0;       # Discard old index
          for (@position) {
            if (defined) {
              print $index_fh pack("A10", $_);
            } else {
              print $index_fh "NoSuchUser";
            }                
          }
        }
        return if my $offset eq 'NoSuchUser';


Next Copyright © 2003 M. J. Dominus