Wie erkenne ich, ob stdout zu 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

Mit dem -t Filetest Operator .

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

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

Answer 2

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