如何使用 7z 测试？

Question

文件的目录已定义。

我想使用 7z 的“test”命令获取“test”值。

foreach $str0 (glob "*.zip"){
    my $test = system( "7z t -y $str0");
    print $test;
}

如何获得“7z 测试”值？

---

编辑：

您的意思是使用 qx 而不是 System 吗？

你的意思是对的吗？

foreach $str0 (glob "*.zip"){
    my $test = qx/7z t -y $str0/;
    print $test;
}

或者

foreach $str0 (glob "*.zip"){
    my $test = `7z t -y $str0`;
    print $test;
}

我都尝试了，但无法获得“测试值”。

Answer 1

在 Perl 中至少有三种方法可以做到这一点： qx 和反引号方式基本上是相同的，除了使用 qx 时，您可以选择使用什么分隔符来开始/结束字符串。使用 ' 作为分隔符可防止变量插值。

第三种方法是使用 open 打开 7zip 的管道。

#with qx
my $test = qx/7z t -y $str0/;

#with backticks
my $test = `7z t -y $str0`;

#with open
open my $pipe, '-|', '7z', 't', '-y', $str0;
my $test = join "\n", readline $pipe;
close $pipe;