如何检测stdout是否连接到Perl中的tty？

Question

我正在寻找相当于这个Python代码的Perl:

from sys import stdout
if stdout.isatty():
    print "yes"
else:
    print "no"

Answer 1

使用-t filetest运算符.

print -t STDOUT ? "Yes\n" : "No\n"

请注意,在Perl中,STDOUT可以绑定(本质上是一个过于复杂的重载对象),因此即使STDOUT没有直接连接到TTY,它仍然可以到达TTY.

Answer 2

如果您需要STDOUT实际连接到终端,请使用IO :: interactive,而不仅仅是重定向到/dev/null/或等等.