在Perl中运行system()命令时显示进度

fork system("tar ... ")
while ( forked process is still activE) {
    print #
    sleep 1
}

Perl有一个很好的结构,称为“管道打开”.您可以通过在sHell提示符下键入perldoc -f open来了解更多相关信息.

# Note the use of a list for passing the command. This avoids
# having to worry about sHell quoTing and related errors.
open(my $tar,'-|','tar','zxvf','test.tar.gz','-C','wherever') or die ...;

这是一个显示示例的片段：

open(my $tar,...) or die "Could not run tar ... - $!";
  while (<$tar>) {
       print ".";
  }
  print "\n";
  close($tar);

替换打印“.”每隔10到100行打印一个哈希标记,以获得一个漂亮的标尺.