[Namazu-users-ja 680] Re: mknmzが止まってしまう

Tadamasa Teranishi yw3t-trns @ asahi-net.or.jp
2006年 2月 1日 (水) 20:11:13 JST


寺西です。

Yukio USUDA wrote:
> 
> 私のところでは停止する現象が再現されました。
...
> というように該当部分を切り出したスクリプトで確認できます。
> 
> $ touch 'test1 '
> $ perl test.pl 'test1 '
> NG:test1 :No such file or directory
> 
> となります。
> 
> IO::File の制限のようにも見えますが、うまくいく環境もあるようですね。

うちもダメですが、

use IO::File;
use strict;

my $fname = $ARGV[0];
my $fh = new IO::File;

$fh = new IO::File "$fname", "r";
if (defined $fh) {
    print "OK:$fname:\n";
    print <$fh>;
    $fh->close();
} else {
    print "NG:$fname:$!\n";
}

とすれば、うちでは OK になります。
みなさんの環境ではどうなりますか?
-- 
=====================================================================
寺西 忠勝(TADAMASA TERANISHI)  yw3t-trns @ asahi-net.or.jp
http://www.asahi-net.or.jp/~yw3t-trns/index.htm
Key fingerprint =  474E 4D93 8E97 11F6 662D  8A42 17F5 52F4 10E7 D14E




Namazu-users-ja メーリングリストの案内