Discussion :

[vince2005]

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

[vince2005]

Quelqu un peut il repondre a ma question ?
Si je zippe en langage perl, pourrais dezipper ces fichiers ou dossiers avec un des outils proposes par windows ou faudra t il que je passe automatiquement par le langage perl.

Merci d avance pour vos reponses.

[Lolo78]

Je peux juste dire que ça marche sous Unix. Peut-être essayer un autre logiciel sous Windows.

[djibril]

Évidement ! Tu pourras dézipper.