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