¿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 
} 

por lo general yo uso 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

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 ...

Answer 3

También podría estar interesado en IO::Interactive de averiguar si Perl piensa que está interactuando con un usuario. Simplemente estar conectado a un tty no significa que el usuario va a ver lo que haces.