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

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;
}
Mon fichier .zip est bien créé mais il est toujours vide. Du coup, j'ai plusieurs questions :
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