Discussion :

[mobscene]

J'ai un petit soucie avec

Compress::Zlib

j'aimerais compresser un dossier ainsi que tout ce qu'il contient seulement je vois pas comment faire

merci de votre aide

[rcageot]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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