我想要一个获取Perl输出的进度指示器
system('make')
并且对于从make命令输出到STDOUT的每一行,我想输出一个点作为进度指示器.不幸的是,我正在使用Term :: ReadLine :: Gnu Perl mod.
在make命令运行时,如何重定向STDOUT以捕获和计算行？
解决方法
#!/usr/bin/perl
my $command = "make";
open (my $cmd,"$command |");
while(<$cmd>){
print ".";
}
print "\n";