< UNIX 中的运算符，传递给 Perl 脚本

Question

计算 if(-t STDIN) 时， UNIX 运算符算作 STDIN 吗？如果没有，我如何获取该数据？

所以有人输入 perl example.pl <测试.txt。这与通过 ls | 管道输入的数据不同。 ./example.pl。我怎样才能得到这种行为？

Answer 1

测试 -p STDIN，检查文件句柄 STDIN 是否附加到管道。

touch foo
perl -e 'print -p STDIN' < foo            # nothing
cat foo | perl -e 'print -p STDIN'        # 1

但我不确定我是否理解你的问题。在所有这三种情况下，

1.  perl -e 'print $_=<STDIN>' < <(echo foo)
2.  echo foo | perl -e 'print $_=<STDIN>'
3.  perl -e 'print $_=<STDIN>'          # then type "foo\n" to the console

输入都是相同的，并且都可以通过 STDIN 文件句柄访问。在前两种情况下，-t STDIN 的计算结果为 false，在第二种情况下，-p STDIN 将为 true。

这三种情况之间的行为差​​异很微妙，而且通常并不重要。显然，第三种情况将等待至少一行输入（以“\n”或 EOF 结尾）。前两种情况之间的差异更加微妙。当程序的输入从另一个进程的输出通过管道传输时，您在延迟或该程序是否缓冲其输出方面会受到第一个进程的支配。

时，也许你可以扩展一下你的意思

perl example.pl < testing.txt

当你说“行为不像”

ls | ./example.pl

Answer 2

-t 测试 STDIN 是否附加到 tty。

当您通过管道将数据传输到 perl 时，它不会附加到 tty。这不应该取决于您用于管道传输的机制（即，是否使用 | 管道传输命令或使用 < 管道传输文件。）但是，您将有一个直接运行程序时会附加 tty。给出以下示例：

#!/usr/bin/perl
print ((-t STDIN) ? "is a tty\n" : "is not a tty\n");

您会期望以下输出：

% perl ./ttytest.pl
is a tty
% perl ./ttytest.pl < somefile
is not a tty
% ls | perl ./ttytest.pl
is not a tty