在Perl中,可以使用Archive::Zip模块来压缩和解压缩文件。下面是一个简单的示例代码:
use Archive::Zip;
# 压缩文件
my $zip = Archive::Zip->new();
$zip->addFile('file.txt');
$zip->writeToFileNamed('archive.zip');
# 解压缩文件
my $zip = Archive::Zip->new('archive.zip');
$zip->extractTree();
在上面的示例中,首先创建一个新的Archive::Zip对象,然后使用addFile方法将文件file.txt添加到压缩文件中,并使用writeToFileNamed方法将压缩文件保存为archive.zip。然后创建一个新的Archive::Zip对象,传入要解压缩的压缩文件名,然后使用extractTree方法解压缩文件。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,请发送邮件至 55@qq.com 举报,一经查实,本站将立刻删除。转转请注明出处:https://www.szhjjp.com/n/982417.html