[Mew-dist 11569] Re: immv to large size directory

[MINABE Oki]

美辺といいます。

   Hideaki YOSHIFUJI <yoshfuji at example.com>
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
>        while (defined($i = readdir(MDIR))) {
>            $max = $i if ($max < $i and $i =~ /^\d+$/);
>        }
> の方が速くないでしょうか?

でもこれって、perl を -w で起動するとわりと悲しいことになりますよね。
IM はどうせ -w が付いてないからいいやって言うなら、数字ではない文字列を数
字として評価すると 0 になるので、

  $max = $i if ($max < $i);

の方が速いでしょう。

--
MINABE Oki <minabe at example.com>