namazu-dev(ring)

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: mknmz --quiet

佐藤文優です。                                                        |

Satoru Takabayashi <satoru-t@xxxxxxxxxxxxxxxxxx> wrote:
>  if ($var::Opt{'quiet'}) {
>      open(STDOUT, ">/dev/null");
>  }
>
>と標準出力を /dev/null に直結する方法です。が、Windows では
>/dev/null はなさそうなので困ります。

DOS / Windows (OS/2 も?) では、「nul」という名前のファイルは
カーネルで(?)予約されていて、/dev/null みたいにブラックホールになります。

if ($var::Opt{'quiet'}) {
    open(STDOUT, "nul");
}

ActivePerl は先日消してしまって、手元には Windows NT 4.0 SP6a 上の
Pler for Win32 Build 107 (perl 5.001) しかないのですが、これで試した
限りは大丈夫そうです。

-- 
佐藤文優 (さとうふみやす) @ 会社
fumiya@xxxxxxxxx,   http://www.bento.ad.jp/~fumiya/
fumiya@xxxxxxxxxxx, http://www.samba.gr.jp/