如何在 Windows 上用 Perl 调用 winrar？

Question

是否可以在Windows系统上通过perl调用winrar，例如

perl -e "rar a -rr10 -s c:\backups\backup.rar @backup.lst"

如果可以，是否有更有效的方法来做到这一点？

我在谷歌上查找了“perl -e”+winrar，但是没有一个结果给了我任何与我正在寻找的答案相距甚远的答案。我运行的系统是Windows XP系统。如果更容易的话，我愿意用另一种语言（例如 python）来完成此操作；不过我对 Perl 更满意。

Answer 1

您可以使用 CPAN 模块 Archive::Rar 访问 Windows 中的 RAR 工具：

use Archive::Rar;
my $rar = Archive::Rar->new(-archive => $archive_filename);
$rar->Extract();

Answer 2

从 Perl 脚本执行外部命令的一种方法是使用 system：

my $cmd = 'rar a -rr10 -s c:\backups\backup.rar @backup.lst';
if (system $cmd) {
    print "Error: $? for command $cmd"
}

Answer 3

要使用 Perl 程序中的外部应用程序，请使用 system 内置程序。

如果需要命令的输出，可以使用反引号 (``) 或 qx 运算符，如 perlop。您还可以使用 perlipc。