如何在 Perl 中一次输出一屏

Question

从命令行执行 Perl 脚本时，如何确保输出不会滚出屏幕？

换句话说，我如何模仿 Unix more 或 更少命令？

Answer 1

Term::Pager 模块似乎就是您正在寻找的模块。

Answer 2

用户只需将输出传送到less即可。这使他们可以选择使用自己喜欢的寻呼机，或者甚至根本不使用任何寻呼机（如果他们愿意）。

Answer 3

正如 Matti Virkkunen 所说 ，用户最好将您的脚本传送到 less。

类 Unix 系统的用户希望以纯文本形式输出，因此如果需要，他可以将其传递给其他命令。如果您的脚本不将输出显示为纯文本，您的用户可能会发现您的脚本不太可用。

Answer 4

对于一种快速而肮脏的方式，您可以将文本通过管道传输到less或more：

my $text = <<'EOD';
Lots
   and
      lots
         of
           text
EOD

my $pager = $ENV{PAGER} || 'less';
open(my $less, '|-', $pager, '-e') || die "Cannot pipe to $pager: $!";
print $less $text;
close($less);

有各种less和more< /em> 标志允许脚本在到达文本底部时继续。