Lightweight Databases

Void Fields

(Continued...)

          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";
            }                
          }
        }

find_user_by_uid then gets:

        return if my $offset eq 'NoSuchUser';