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

Question

我在寻找Perl的等效于此Python代码：

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

Answer 1

使用-t filetest operator。

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

注意，在Perl，STDOUT可以绑（基本上是过于复杂的过载对象），以便输出到STDOUT仍可达到TTY即使其不直接连接到一个。

Answer 2

如果你需要STDOUT实际连接到终端，而不是只是被重定向到/dev/null/或其他什么，使用IO::interactive。