如何檢測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。