Hello tout le monde.
J'ai un petit problème avec ce module.
Il est détaillé ici : http://search.cpan.org/~adamk/Archiv...Archive/Zip.pm
Mon problème, c'est que j'arrive à créer des fichiers zips, mais je n'arrive pas à y mettre quoi que ce soit dedans, que cela soit dossier ou fichier.
Voilà la fonction que j'ai fait : (très basique).
Mon fichier .zip est bien créé mais il est toujours vide. Du coup, j'ai plusieurs questions :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47 # # ============================================================================= # # NOM # compresserFichier # # SYNTAXE # un argument : # - $sFic : path complet du fichier a compresser # # DESCRIPTION # compresse un fichier # # RETOUR # 0 - compression OK # 1 - compression KO # # ============================================================================== # sub compresserFichier { # path complet du fichier my ($sFic) = @_; # path complet du fichier zip my $sFicZip = $sFic.".zip"; # Code retour de la fonction my $crCompresserFichier = 0; if (! -e $sFicZip) { # Creation du fichier .zip my $azNewZip = Archive::Zip->new(); # Ajout d'un fichier my $afFileAdded = $azNewZip->addFile($sFic); # Sauvegarder le zip file sur le disque unless ($azNewZip->writeToFileNamed($sFicZip) == AZ_OK) { $crCompresserFichier = 1; } } return $crCompresserFichier; }
1. Est-ce que vous voyez quelque chose d'étrange dans mon script qui ferait que la fonction ne fonctionne pas ?
2. Comment faire pour afficher plus de log concernant une éventuelle erreur qui pourrait survenir pendant la fonction ?
Merci d'avance.
Cdt.
Bahan
Partager