Wie erkenne ich, ob stdout mit einem tty in Perl verbunden ist?

Question

Ich suche nach dem Perl-äquivalent zu diesem Python-Code:

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

Answer 1

die -t filetest operator verwenden.

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

Beachten Sie, dass in Perl kann STDOUT (im Wesentlichen ein zu kompliziert überlastet Objekt) gebunden werden, so dass eine Ausgabe an STDOUT kann noch eine TTY erreichen, auch wenn es nicht direkt an einen befestigt.

Answer 2

Verwenden Sie IO::interactive, wenn Sie STDOUT benötigen, um tatsächlich mit dem Terminal verbunden zu sein, und nicht nur zu /dev/null/ oder was auch immer umgeleitet werden.