namazu-dev(ring)

[Rei FURUKAWA <furukawa@xxxxxxxxxxxx>]

古川です。

From: Hiroshi KOMATSU <sui_feng@xxxxxxxxxxxxx>
Subject: [namazu-dev 693] Re: How to get tf value?
Date: Tue, 26 Oct 1999 13:38:15 +0900
Message-ID: <199910260438.NAA05508@xxxxxxxxxxxxxx>

sui_feng> [1] $document_number ごとに $word のリストを出力できる関数
sui_feng>     $arrayref = &word_list($document_number);
sui_feng>     および &score($document_number, $word) のような関数
sui_feng> または 
sui_feng> [2] $hashref = &scores($document_number);$score = $$hashref{$word};
sui_feng> 
sui_feng> のいずれかであれば、全然オッケーです。

とりあえず、

require 'nmzidx.pl';

my $nmz = new nmzidx;
my $nw = $nmz->open_word;

map {$score{$_}{$word} = $list{$_}} keys %list while defined $nw->read(\$word, \%list);

とすると、

    $score{$document_number}{$word} でスコアが得られ、

    $document_number ごとの $word のリストは
        keys %{$score{$document_number}}
    で得られる

ようになると思います。お試しを。

-- 
Rei FURUKAWA 
furukawa@xxxxxxxxxxxx