在windows系统上是否可以通过
winrar
调用perl
,比如
perl -e "rar a -rr10 -s c:\backups\backup.rar @backup.lst"
如果是这样,有没有更有效的方法来做到这一点?
我在谷歌上查找了“perl -e”+winrar,但是没有一个结果给了我任何与我正在寻找的答案相距甚远的答案。我运行的系统是Windows XP系统。如果更容易的话,我愿意用另一种语言(比如 python)来做这件事;不过我对 Perl 更满意。
您可以使用 CPAN 模块访问 Windows 中的 RAR 工具 Archive::Rar:
use Archive::Rar;
my $rar = Archive::Rar->new(-archive => $archive_filename);
$rar->Extract();
从 Perl 脚本执行外部命令的一种方法是使用 system:
my $cmd = 'rar a -rr10 -s c:\backups\backup.rar @backup.lst';
if (system $cmd) {
print "Error: $? for command $cmd"
}