Wie kann ich feststellen, ob STDIN mit einem Terminal in Perl verbunden ist?

Question

Wie kann ich feststellen, ob STDIN mit einem Terminal in Perl verbunden ist?

Answer 1

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

Ich benutze diese in der Regel in Verbindung mit -t STDOUT, um herauszufinden, ob ich von einer interaktiven Shell renne oder von cron, mehr Leistung zu ermöglichen.

Answer 2

Eine Lösung wäre tty zu verwenden:

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

Aber nicht sehr hübsch ...

Answer 3

könnten Sie auch IO::Interactive interessiert sein, um herauszufinden, ob Perl denkt, dass es mit einem Benutzer interagiert. Einfach mit einem tty verbunden zu sein bedeutet nicht, dass der Benutzer sehen wird, was Sie tun.