为什么我用 Perl 的系统调用 jzip 进程会挂起？

Question

我绝对是 Perl 的新手，如果这对你来说是个愚蠢的问题，请原谅我。

我正在尝试用 Perl（ActivePerl、jzip、Windows XP）中的 jzip 解压缩一堆 .cab 文件：

#!/usr/bin/perl

use strict;
use warnings;

use File::Find;
use IO::File;

use v5.10;

my $prefix = 'myfileprefix';
my $dir = '.';

File::Find::find(
    sub {
        my $file = $_;
        return if -d $file;          
        return if $file !~ /^$prefix(.*)\.cab$/;  
  my $cmd = 'jzip -eo '.$file;
  system($cmd);
    }, $dir
);

代码解压缩文件夹中的第一个 .cab 文件并挂起（没有任何错误）。它一直挂在那里，直到我按 Ctrl+c 停止。有谁知道问题是什么？

编辑：我使用 processxp 来检查进程，我发现启动了正确数量的 jzip 进程（根据 cab 文件的数量驻留在源文件夹中）。但是，其中只有一个在 cmd.exe => perl 下运行，并且这些进程在触发后都不会关闭。在我看来，我需要关闭进程并一一执行，我不知道如何在 perl 中执行此操作。有什么指点吗？

编辑：我也尝试用记事本替换 jzip，结果它一次打开一个文件（按顺序），只有当我手动关闭记事本时才会触发另一个实例。这是 ActivePerl 中的常见行为吗？

编辑：我终于解决了，但我仍然不完全确定为什么。我所做的是删除脚本中的 XML 库，这不应该相关。抱歉，我一开始故意删除了“使用 XML::DOM”，因为我认为它与这个问题完全无关。 老的： 使用严格； 使用警告；

use File::Find;
use IO::File;
use File::Copy;
use XML::DOM; 

use DBI;
use v5.10;

新：

#!/usr/bin/perl
use strict;
use warnings;

use File::Find;
use IO::File;
use File::Copy;

use DBI;
use v5.10;

my $prefix = 'myfileprefix';
my $dir = '.';

# retrieve xml file within given folder
File::Find::find(
    sub {
        my $file = $_;
        return if -d $file;             
        return if $file !~ /^$prefix(.*)\.cab$/;
        say $file;
        #say $file or die $!;
        my $cmd = 'jzip -eo '.$file;
        say $cmd;
        system($cmd);       
    }, $dir
);

然而，这带来了另一个问题，当提取的文件已经存在时，脚本将再次挂起。我高度怀疑这是 jzip 的问题，解决问题的另一种方法是简单地将 jzip 替换为提取物，如下面的@ghostdog74 指出的那样。

Answer 1

首先，如果您通过 system() 调用使用命令，则应始终将其输出/错误重定向到日志或至少在程序中的进程。

在这种特殊情况下，如果您这样做，您将记录每个命令正在执行的操作，并查看它们是否/何时卡住。

其次，只是一个一般性提示，始终使用本机 Perl 库是个好主意 - 在这种情况下，这当然是不可能的（我对 Windows Perl 没有那么丰富的经验，所以不知道其中是否有 jzip 模块Perl，但搜索 CPAN）。

更新：没有找到 Perl 本机 CAB 提取器，但找到了一个可能更好的 jzip 替代品 - 值得一试。 http://www.cabextract.org.uk/ - 有一个 DOS 版本有望在 Windows 上运行

Answer 2

根据您的编辑，这是我的建议：

#!/usr/bin/perl

use strict;
use warnings;

use File::Find;
use IO::File;

use v5.10;

my $prefix = 'myfileprefix';
my $dir = '.';

my @commands;

File::Find::find(
    sub {
        my $file = $_;
        return if -d $file;             
        return if $file !~ /^$prefix(.*)\.cab$/;        
        my $cmd = "jzip -eo $File::Find::name";
        push @commands, $cmd;
    }, $dir
);


#asynchronously kick off jzips
my $fresult;
for @commands
 {
    $fresult = fork();
    if($fresult == 0) #child
    {
     `$_`;
    }
    elsif(! defined($fresult))
    {
       die("Fork failed");
    }
    else
    {
       #no-op, just keep moving
    }

 }

编辑：添加了异步。 edit2：固定范围问题。

Answer 3

从dos窗口运行jzip命令会发生什么？它工作正常吗？如果在脚本中的命令中添加行尾字符 (\n) 会发生什么？这是否可以防止挂起？

Answer 4

这是一个替代方法，使用 extract.exe，您可以下载 here 或 here

use File::Find;
use IO::File;    
use v5.10;    
my $prefix = 'myfileprefix';
my $dir = '.';    
File::Find::find({wanted => \&wanted}, '.');
exit;
sub wanted {
    my $destination = q(c:\test\temp);
    if ( -f $_ && $_=~/^$prefix(.*)\.cab$/ ) {
         $filename = "$File::Find::name";
         $path = "$File::Find::dir";
         $cmd = "extract /Y $path\\$filename /E /L $destination";
         print $cmd."\n";
         system($cmd);
    }
} $dir;

Answer 5

尽管没有人明确提及，system 会一直阻塞直到进程完成。正如人们所指出的那样，真正的问题是找出进程不退出的原因。分叉或任何其他并行化都无济于事，因为您会留下很多挂起的进程。

在您弄清楚问题之前，请从小处着手。制作演示问题的最小 Perl 脚本：

#!perl
system( '/path/to/jzip',  '-eo', 'literal_file_name' ); # full path, list syntax!
print "I finished!\n";

现在的诀窍是找出它挂起的原因，有时这意味着针对不同外部程序的不同解决方案。有时你需要在运行外部进程之前关闭 STDIN，或者它坐在那里等待它关闭，有时你会做一些其他的事情。

除了system，您还可以尝试诸如IPC::System::Simple之类的东西，它为您处理许多特定于平台的细节，或者像IPC::Run或IPC::Open3这样的模块。

有时它很糟糕，而这种情况就是其中之一。