perl - Perl Archive::Rar 用密码处理档案？

Question

寻找一种使用密码解压缩档案的方法！我将它用于没有通过的人：

use strict;
use warnings;
use Archive::Rar;

$archive = "test.rar";

$unrar = Archive::Rar->new(archive => "$archive");
$unrar->Extract ();

密码为“pass123”。提前致谢！

Answer 1

Archive::Rar是真正的二进制文件的薄而复杂的包装器，提供非常狭窄的过程控制，同时在其中移动大量无意义的数据。请考虑rar通过 Perl 的许多 IPC 工具手动调用二进制文件，或者Archive::Unrar在 Windows 平台上使用。

无论如何，因为这个模块有相当草率的数据控制，如果你只想为一个镜头任务快速而肮脏的脚本，你可以通过在文件列表中注入标志来欺骗它把你想要的任何东西放在命令行中：

my $unrar = Archive::Rar->new(archive => $archive);
$unrar->{args}{-files} = ['.', '-ppass123'];
$unrar->Extract;