Tie::Namazu

ToDo?

• NMZ.pのtie
  • 基本的にはNMZ.iと同様
• NMZ.tのtie
  • 欠番情報を含む(-1)
• 最終的に以下のものを作りたい
  • 書き込み可能な機能
  • インデックスの整合性チェック

 2331: # Dr. Knuth's  ``hash'' from (UNIX MAGAZINE May 1998)
 2332: sub hash ($) {
 2333:     my ($word) = @_;
 2334: 
 2335:     my $hash = 0;
 2336:     for (my $i = 0; $word ne ""; $i++) {
 2337:         $hash ^= $Seed[$i & 0x03][ord($word)];
 2338:         $word = substr $word, 1;
 2339:         # $word =~ s/^.//;  is slower
 2340:     }
 2341:     return $hash & 65535;
 2342: }

seedはseed.plで定義されている。