Question

我有一个执行某些任务的Perl脚本，其中一个任务是调用system "tar -cvf file.tar....."命令。

这通常需要一些时间，因此我希望命令行回显一个进度指示器，例如#在system调用正在进行时回显到屏幕。

我一直在做一些挖掘并偶然发现fork。这是最好的方式吗？是否可以分叉system命令，然后创建一个while循环来检查fork返回的$pid的状态？

我也看过waitpid的引用....我猜我也需要使用它。

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

我是在咆哮错误的树吗？

非常感谢约翰

Answer 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, '-|', 'tar', ...) or die "Could not run tar ... - $!";
  while (<$tar>) {
       print ".";
  }
  print "\n";
  close($tar);

将print "."替换为每10到100行左右打印一个哈希标记的内容，以获得一个漂亮的标尺。

Answer 2

一个不依赖于子进程编写任何类型输出的示例，只要它运行一次就打印一个点：

use POSIX qw(:sys_wait_h);
$|++;

defined(my $pid = fork) or die "Couldn't fork: $!";

if (!$pid) { # Child
  exec('long_running_command', @args) 
    or die "Couldn't exec: $!";
} else { # Parent
  while (! waitpid($pid, WNOHANG)) {
    print ".";
    sleep 1;
  }
  print "\n";
}

虽然它可能有更多的错误检查，但可能实际上已经在CPAN上更好了。 Proc::Background似乎很有希望抽象出这种工作，但我不确定它是多么可靠。

Answer 3

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

这将打印从tar。

收到的文件名

Answer 4

我会尝试这样的事情

open my $tar, "tar -cvf file.tar..... 2>&/dev/null |"
    or die "can't fork: $!";
my $i = 0;
while (<$tar>) {
    if( i++ % 1000 == 0 ) print;
} 
close $tar or die "tar error: $! $?";

Answer 5

为了在长时间运行的任务中显示进度，您会发现Term::ProgressBar很有用 - 它会执行您所描述的“在屏幕上打印＃”功能。

Answer 6

扩展Hobbs提供的内容，如果您希望将子进程中的数据返回到Parent进程，则需要有一个外部管道。我最终使用了tempfs，因为它像文件一样简单，但不会在磁盘上放置IO命中。

**重要** 您需要退出子进程，否则＆＃34; child＆＃34;进程将继续沿着相同的脚本，您将获得双print语句。因此，在下面的示例中，foreach (@stdoutput)会发生两次，尽管只在脚本中一次。

$shm_id = time;  #get unique name for file - example "1452463743"
$shm_file = "/dev/shm/$shm_id.tmp";   #set filename in tempfs
$| = 1;  #suffering from buffering
print ("Activity Indicator: "); #No new line here
defined(my $pid = fork) or die "Couldn't fork: $!";
if (!$pid) { # Child
    @stdoutput=`/usr/home/script.pl -o $parameter`; #get output of external command
    open (SHM, ">$shm_file");
    foreach (@stdoutput) {
        print SHM ("$_");  #populate file in tempfs
    }
    close (SHM);        
    exit;  #quit the child process (will not kill parent script)
} else { # Parent
    while (! waitpid($pid, WNOHANG)) {
    print ("\#");  # prints a progress bar
        sleep 5;
    }
}
print ("\n"); #finish up bar and go to new line
open (SHM, "$shm_file");
    @stdoutput = <SHM>;  #Now open the file and read it. Now array is in parent
close (SHM);
unlink ($shm_file);  #deletes the tempfs file
chomp(@stdoutput);
foreach (@stdoutput) {
    print ("$_\n");  #print results of external script
}

在Perl中运行system（）命令时显示进度

6 个答案: