Discussion :

[Hoopsy]

Bonsoir à tous,

J'ai essayé par tous les moyens de de zipper un dossier sous, je vous explique :

J'ai un certain nombre de dossiers zippés et ils contiennent tous des fichiers directement dans le dossier zippé et quand je fais :

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
 
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
$a="";
@progc = <*.zip>;
foreach (@progc) 
{
$a=$_;
print("$a\n");
$zip = Archive::Zip->new();
$zip->read( "$a");
@members = $zip->members();
$b=substr($a,0,length($a)-4);
foreach $element(@members)
{
  print "$element\n";
  $zip->extractMember($element);
}
}

Ce script de zippe directement à la racine, je veux donc de zipper sous, je vous donne un exemple :
J'ai l'arborescence suivante :
dans le dossier A il y a B.zip qui contient c.xls et d.xls, mon script me donne :
dans le dossier A il y a B.zip et c.xls et d.xls, alors que moi je veux obtenir ce résultat :
dans le dossier A il y a B.zip et le dossier B, dans le dossier B je trouve c.xls et d.xls.

Est-il possible d'atteindre ce but ?

Merci de m'aider.

H.

[50Nio]

Essaye de:
- extraire le nom de ton fichier zip (

Code :

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

($folderName) = $zipName =~ /(.*).zip/;

Ensuite, il faut encore créer le répertoire $foldername,

Code :

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

mkdir($folderName);

et soit se placer dans le répertoire pour la décompression,
soit essayer de décompresser avec un nom de fichier en 2ème argument de extractMember:

Code :

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

1
2
 
$zip->extractMember($element, $folderName/$element);

[Hoopsy]

Bonsoir 50Nio,

Finalement, c'est plus ou moins la solution que j'ai adoptée, je croyais que je pouvais éviter de créer de nouveaux dossiers à chaque fois .

Ceci dit, je trouve intéressant votre bout de code

Code :

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

1
2
 
($folderName) = $zipName =~ /(.*).zip/;

que je ne connaissais pas.

Merci pour votre aide .

H.

[50Nio]

Parfait !

A bientôt !