perl - 如何确定STDIN是否已连接到Perl中的终端？

Question

如何确定STDIN是否已连接到Perl中的终端？

Answer 1

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

我通常将此代码与-t *STDOUT结合使用，以了解我是从交互式shell还是从cron运行，以实现更多输出。