Làm cách nào để biết liệu STDIN có được kết nối với thiết bị đầu cuối trong Perl không?

Question

Làm cách nào để biết liệu STDIN có được kết nối với thiết bị đầu cuối trong Perl không?

Answer 1

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

Tôi thường sử dụng kết hợp với -t STDOUT, để tìm hiểu xem tôi có đang chạy từ một trình tương tác hay từ cron, để cho phép nhiều đầu ra hơn.

Answer 2

Một giải pháp sẽ được sử dụng tty:

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

Nhưng không phải là rất khá ...

Answer 3

Bạn cũng có thể quan tâm IO::Interactive để tìm ra nếu Perl nghĩ rằng nó được tương tác với người dùng. Đơn giản chỉ cần được kết nối với một tty không có nghĩa là người dùng sẽ thấy những gì bạn làm.