通过stdin重定向的输入未按预期工作

我写了一些代码,我以为我在测试是否有性传播疾病。但是代码的工作与我所期望的相反。

这是我写的代码,我叫它 zit

#!/usr/bin/perl
use strict 'vars';

my @a = @ARGV ? @ARGV : "EMPTY";
printf "  command line arguments: \"%s\" as expected\n", @a;
if ( -t STDIN )
  {
    print "  ( -t STDIN ) returns TRUE\n";
  }
else
  {
    print "  ( -t STDIN ) returns FALSE\n";
    print "  But, I can iterate over <STDIN>!  Huh?? Behold:\n";
  }

我的想法是:

• zit <(echo a;echo b) 将导致 ( -t STDIN ) 存在 FALSE .

• zit < <(echo a;echo b) 将导致 (-T STDIN) 存在 TRUE .

所以,为了找出可能发生的事情,我修改了 if-then 通过添加 while 循环(基于我的理解,我把它放在我认为会产生问题的地方)。

#!/usr/bin/perl
use strict 'vars';

my @a = @ARGV ? @ARGV : "EMPTY";
printf "  command line arguments: \"%s\" as expected\n", @a;

if ( -t STDIN )
  {
    print "  ( -t STDIN ) returns TRUE\n";
  }
else
  {
    print "  ( -t STDIN ) returns FALSE\n";
    print "  But, I can iterate over <STDIN>!  Huh?? Behold:\n";
    while ( <STDIN> )
      {
        print ">> $_";
      }
  }

这是这个代码的输出

Zit<(回音A;回音B) 具有以下输出

  command line arguments: "/dev/fd/63" as expected
  ( -t STDIN ) returns TRUE

Zit<<(回音A;回音B) 具有以下输出

  command line arguments: "EMPTY" as expected
  ( -t STDIN ) returns FALSE
  But, I can iterate over <STDIN>!  Huh?? Behold:
>> a
>> b

我真的很困惑。这并不像我想象的那样。如果 (-T STDIN) 是假的,为什么 虽然 循环工作?

有人能解释一下这里发生了什么吗?

我以前编辑过这篇文章,这样就不那么令人困惑了。