¿Cómo puedo detectar si stdout está conectado a un tty en Perl?

Question

Busco el Perl equivalente a este código Python:

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

Answer 1

Utilice la -t filetest operator.

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

Nótese que en Perl, STDOUT puede ser atado (esencialmente un objeto sobrecargado demasiado complicado), de modo salida a stdout todavía puede alcanzar un TTY incluso si no es unido directamente a uno.

Answer 2

Utilice IO::interactive si necesita que STDOUT se conecte realmente al terminal y no solo se lo redirija a /dev/null/ o lo que sea.