Bonjour,

J'arrive à zipper un dossier et à le dézipper avec les outils perl.

Par contre si je souhaite dézipper un dossier, zipper en language Perl avec windows en direct : alors il est impossible de dézipper mon dossier. est ce normal ?


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
 
 
  my $dir=qw(c:\PROD\toto);
  my $nom_archive=qw(C:\PROD\Archive.zip);
 
  my $erreur = 0;
 
 sub ONZIP {
   use Archive::Zip 	qw( :ERROR_CODES :CONSTANTS );
  ##print "Creation du fichier archive=[$nom_archive]...\n";
   my $zip = Archive::Zip->new()		or $erreur=1; 
 
    if ($zip->addTree( $dir, $dir ) != AZ_OK ){
	$erreur=1;
    } 
    if ($zip->writeToFileNamed( $nom_archive ) != AZ_OK ) {
	$erreur=1;
    }
  print "Fin de l'ecriture du fichier Archive avec le code [$erreur]!\n";
  }
 
 
sub Ondezip {
 use Archive::Zip 	qw( :ERROR_CODES :CONSTANTS );
 
my $zipname = 'C:\PROD\Archive.zip';
my $destinationDirectory = 'C:/PROD/AFC';
my $zip = Archive::Zip->new($zipname);
foreach my $member ($zip->members)
{
    next if $member->isDirectory;
    (my $extractName = $member->fileName) =~ s{.*/}{};
    $member->extractToFileNamed(
      "$destinationDirectory/$extractName");
}
 
}

Merci d'avance
Vince