Come sapere se il mio programma viene convogliato ad un altro (Perl)

Question

"ls" si comporta in modo diverso quando la sua uscita viene convogliata:

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

Come fa a sapere, e come farei questo in Perl?

Answer 1

In Perl, l'operatore di verifica -t file indica se un filehandle (compresi STDIN) è collegato ad un terminale.

C'è anche l'operatore di prova -p per indicare se un filehandle è collegato a una pipe.

$ 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 

Documentazione operatore file di prova su perldoc -f -X.

Answer 2

use IO::Interactive qw(is_interactive); 

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