STDIN'in Perl'deki bir terminale bağlı olup olmadığını nasıl anlarım?

Question

STDIN'in Perl'deki bir terminale bağlı olup olmadığını nasıl anlarım?

Answer 1

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

Genellikle ben interaktif bir kabuk kaçıyorum öğrenmek için, -t STDOUT ile birlikte bu kullanmak veya cron, daha çıkış sağlamaktır.

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

Ama çok güzel ...

Answer 2

bir çözüm tty kullanmak olacaktır. Sadece tty'ye bağlı olmak, kullanıcının ne yaptığınızı görmeyeceği anlamına gelmez.

Answer 3

Ayrıca Perl bir kullanıcı ile etkileşim düşünürse anlamaya IO::Interactive ilginizi çekebilir: