溫馨提示×

Perl怎么壓縮和解壓縮文件

小億
148
2024-04-10 11:32:39
欄目: 編程語言

在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();

在上面的示例中，首先創(chuàng)建一個新的Archive::Zip對象，然后使用addFile方法將文件file.txt添加到壓縮文件中，并使用writeToFileNamed方法將壓縮文件保存為archive.zip。然后創(chuàng)建一個新的Archive::Zip對象，傳入要解壓縮的壓縮文件名，然后使用extractTree方法解壓縮文件。

0 踩