Compresser un dossier avec Compress::Zlib

tu fais d'abord un tar et ensuite tu le compresses avec zlib ?
sinon Archive::Tar sait créer des archives compressées directement !

Code:

1
2
3
4
5
6
7
8
9
10
11
 
    use Archive::Tar;
    my $targz   = "$filename.tar.gz";
    my $tar = Archive::Tar->new();
    $tar->add_files(glob "$dir/*");
    #------------------------
    #  ou alors tu remplis un tableau avec tes fichiers avec la methode que tu veux
    my @files;
    $tar->add_files(@files);
    #------------------------
    $tar->write($targz,1);