如何在perl脚本中等待按键?

17 perl

我正在尝试使用以下命令执行二进制文件:

system("update");
Run Code Online (Sandbox Code Playgroud)

执行"update"命令后,系统会提示以下内容:

"Press ENTER to exit:"
Run Code Online (Sandbox Code Playgroud)

如何在我的perl脚本中实现上述内容?

par*_*d0x 24

use strict;
use warnings;

print "Press ENTER to exit:";
<STDIN>;
Run Code Online (Sandbox Code Playgroud)

  • 您可能还需要将 `$|` 设置为 `undef` 或 `0` 以外的值。否则,输出会被缓冲,并且根据系统的不同,它可能无法完全满足您的要求。 (2认同)