需要使用 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";

Answer 2

make >& >(while read f; do echo -n .; done; echo)

显然这是一个 shell 解决方案，但作为进度指示器的点就是一个点。

当然，您可以在里面放一个 T 恤，以保存 make 的副本以备出现问题时使用。

由于出于某种无法解释的原因，您似乎不喜欢（既不赞成也不接受）shell 解决方案，因此这里是一个纯 perl 解决方案：

if (open(X,"make|")) { local($|)=1; while(<X>) { print "."; } close(X); print "\n";}