Làm thế nào để biết được chương trình của tôi đã được cấp nước tập trung khác (Perl)

Question

"ls" cư xử khác nhau khi sản lượng của nó đã được cấp nước tập trung:

> ls ??? 
bar foo 
> ls ??? | cat 
bar 
foo 

Làm thế nào để nó biết, và làm thế nào tôi sẽ làm điều này trong Perl?

Answer 1

Trong Perl, các nhà điều hành kiểm tra -t tập tin cho biết một filehandle (bao gồm STDIN) được kết nối với một thiết bị đầu cuối.

Ngoài ra còn có toán tử kiểm tra -p để cho biết liệu tệp handhandle có được gắn với một đường ống hay không.

$ perl -e 'printf "term:%d, pipe:%d\n", -t STDIN, -p STDIN' 
term:1, pipe:0 
$ perl -e 'printf "term:%d, pipe:%d\n", -t STDIN, -p STDIN' < /tmp/foo 
term:0, pipe:0 
$ echo foo | perl -e 'printf "term:%d, pipe:%d\n", -t STDIN, -p STDIN' 
term:0, pipe:1 

Tài liệu kiểm tra tệp tại perldoc -f -X.

Answer 2

use IO::Interactive qw(is_interactive); 

is_interactive() or warn "Being piped\n";