我如何判断是否没有给出任何参数并且stdin上没有任何内容？

Question

我想要一个我写的Perl脚本,如果它没有收到任何输入,就会显示一条帮助信息.

如何判断stdin上是否有任何内容？

Answer 1

if (@ARGV == 0 && -t STDIN && -t STDERR) { 
    print STDERR "$0: WARNING: reading input from keyboard, type ^D for EOF, ^C to intr.\n";
}