namazu-ml(avocado)

[Rei FURUKAWA <furukawa@xxxxxxxxxxxxxxxx>]

古川です。

>> On Mon, 23 Feb 1998 23:46:27 +0900, Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx> said:
  > ということが発生してしまうのだと思います。先ほどの行を強引に

  >     for (; $cnt <= $#words 
  > 	&& unsignedcmp($words[$cnt], $current_word) < 0 ; $cnt++) {


unsignedcmp は、

    sub unsignedcmp {
        my ($str1, $str2) = ($a, $b);

という形になっているので、これを

    sub unsignedcmp {
        my ($str1, $str2) = $_;

として、putindex の中の

        @words = sort unsignedcmp keys(%KeyIndex);

は、

        @words = sort {&unsignedcmp($a, $b)} keys(%KeyIndex);

としないといけないと思います。


  > と書き替えてしまえば、おそらく動くと思いますが、 Perl を 5.004 に
  > ヴァージョンを上げる方が良いかもしれません。

速度のことを考えれば、5.004 にしたほうがよいのは確かですね。

-- 

                                        ヤマハ(株)ピアノプレーヤ設計課
                                                              古川 令
                                             furukawa@xxxxxxxxxxxxxxxx