perl - 如何检测标准输出是否连接到 Perl 中的 tty？

Question

我正在寻找与此 Python 代码等效的 Perl:

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 可以绑定(bind)(本质上是一个过于复杂的重载对象)，因此到 STDOUT 的输出可能仍会到达一个 TTY，即使它没有直接连接到一个 TTY。