Jak sprawdzić, czy mój program jest rurami do drugiej (Perl)

Question

„ls” zachowuje się inaczej, gdy jego produkcja jest rurami:

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

Jak to wiedzą, i jak zrobić to w Perl?

Answer 1

W Perl, prowadzący badania -t pliku wskazuje, czy uchwyt pliku (w tym STDIN) jest połączony z zaciskiem.

Istnieje również operator testowy -p, który wskazuje, czy uchwyt do pliku jest podłączony do rury.

$ 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 

Dokumentacja operatora testu pliku pod numerem perldoc -f -X.

Answer 2

use IO::Interactive qw(is_interactive); 

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