perl - 需要使用 T :R:G mod 的 Perl system() 命令的进度指示器

Question

我想要一个获取 Perl 输出的进度指示器

   system('make')

对于从 make 命令输出到 STDOUT 的每一行，我想输出一个点作为进度指示器。不幸的是，我正在使用 Term::ReadLine::Gnu Perl mod。

如何在 make 命令运行时重定向 STDOUT 以捕获和计算行数？

Answer 1

#!/usr/bin/perl

my $command = "make";

open (my $cmd, "$command |");
while(<$cmd>){
  print ".";
}
print "\n";