¿Cómo puedo saber si STDIN está conectado a un terminal en Perl?

Question

¿Cómo puedo saber si STDIN está conectado a un terminal en Perl?

Answer 1

if (-t STDIN) {
  # stdin is connected
} else {
  # stdin is not connected
}

Yo suelo usar esto en conjunto con -t STDOUT, para averiguar si estoy corriendo de un shell interactivo, o desde cron, para permitir una mayor producción.

Answer 2

Usted también puede estar interesado en IO :: Interactivo de averiguar si piensa Perl que está interactuando con un usuario. Simplemente se conecta a un teléfono de texto no significa que el usuario va a ver lo que haces.

Answer 3

Una solución sería utilizar TTY:

[root@server] ~> tty
/dev/pts/0
[root@server] ~> echo y | tty
not a tty

Pero no muy bonita ...