Perl怎么压缩和解压缩文件

在Perl中，可以使用Archive::Zip模块来压缩和解压缩文件。下面是一个简单的示例代码：use Archive::Zip;# 压缩文件my $zip = Archive::Zip->new();$zip->addFile('file.txt');$zip->writeToFileNamed('archive.zip');# 解压缩文件my