perl - Perl で stdout が 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

IO::interactiveを使用して、STDOUT を実際に端末に接続する必要があり、リダイレクトされるだけでなく、その他のことも行い/dev/null/ます。