perl压缩文件问题

afeiraul

请问perl利用zip库压缩文件能够加密吗？

1. # Create a new zip archive
   
2.    my $zip = Archive::Zip->new();
   
3.    foreach $file (@files) {
   
4.    $zip->addFile("$aaa/$file", $bbb);
   
5.    }

复制代码

afeiraul

有人知道吗？google了很多都没有找到，刚刚接触perl，一点儿都不懂，帮忙指点一下哈，谢谢了！
好像Archive里面的zip库没有加密功能，我找了一个chilkat的zip库支持，但是这是收费的，郁闷啊！！

fanasy

linux 有 pgp /gpg加密工具

afeiraul

不好意思，我可能没说清，不是加密文件，是使用密码保护来打zip压缩包，我知道linux下使用zip -P可以实现密码保护，请问perl有没有类似的API能够实现呢？