namazu-dev(ring)


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

Re: mknmz --quiet



広瀬です。

 <satoru-t@xxxxxxxxxxxxxxxxxx> wrote.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>どうしたものか…と、思っていたら佐藤さんから耳寄りな情報が届
>きました。

まえにも誰かに聞いたような。。 ^^;

>とすればよさそうです。どなたか Windows 上で次のスクリプトの
>動作確認をしてもらえませんか?
>
>  #! /usr/bin/perl -w
>  use strict;
>
>  print "foo\n";
>
>  my $SYSTEM = $^O;
>  if (-e "/dev/null") {
>      open(STDOUT, ">/dev/null") || die "/dev/null: $!";
>  } elsif (($SYSTEM eq "MSWin32") || ($SYSTEM eq "os2")) {
>      open(STDOUT, ">nul") || die "nul: $!";
>  } else {
>      die "\"/dev/null\" or equivalent are needed to enable --quiet."
>  }
>
>  print "bar\n";   # 表示されてはいけない

---8<------8<------8<------8<------8<------8<------8<------8<------8<------8<---
C:\temp>perl -w null.pl
foo

C:\temp>perl -v

This is perl, version 5.005_03 built for MSWin32-x86-object
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-1999, Larry Wall

Binary build 522 provided by ActiveState Tool Corp. http://www.ActiveState.com
Built 09:52:28 Nov  2 1999
---8<------8<------8<------8<------8<------8<------8<------8<------8<------8<---

でした。

   Best regards,
--
Ken-ichi Hirose (^^)k!
e-mail: hirose@xxxxxxxxxxxxxxxxxxxx