如何在使用Perl Term :: ShellUI时捕获Ctrl-C？

Question

我使用Term::ShellUI几乎所有东西 正在按预期工作，但问题是当我按下Ctrl-C时我想要的 印刷：

  

请使用ctrl + d退出shell

为此我处理信号，但只有在我按下新线后才打印信息 如何解决这个问题？

Answer 1

通过设置$ |，您可以在不使用IO :: Handle库的情况下执行相同的操作打印前变量为1。

$SIG{INT} = sub {
   $| = 1;
   print "Please use ctrl+d to exit the shell";
}