Discussion :

[Hoopsy]

Bonsoir tout le monde,

Je veux faire un unzip de D:/Projet/Hoopsy.rar dans un dossier existant D:/Projet/Data/, pour ce faire j'utilise extractTree comme suit :

Code :

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

1
2
3
4
5
 
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();
$zip->read('Hoopsy.rar');
$zip->extractTree('','D:/Projet/Data/');

Ce code fonctionne bien, je l'ai essayé sur un tas d'exemples, mais le soucis est que j'ai cette erreur que quand je manipule un certain fichier zipé (en attache un exemple) :

Code :

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

1
2
3
 
format error: can't find EOCD signature  at C:/Perl/lib/Archive/Zip/Archive.pm line 695 Archive::Zip::Archive::_findEndOfCentralDirectory('Archive::Zip::Archive=HASH(0x238c2c)', 'IO::File=GLOB(0x1bd470c)') called at C:/Perl/lib/Archive/Zip/Archive.pm line 581    Archive::Zip::Archive::readFromFileHandle('Archive::Zip::Archive=HASH(0x238c2c)', 'IO::File=
GLOB(0x1bd470c)', 'Hoopsy.rar') called at C:/Perl/lib/Archive/Zip/Archive.pm line 548 Archive::Zip::Archive::read('Archive::Zip::Archive=HASH(0x238c2c)', 'Hoopsy.rar') called at D:\Projet\script.pl line 5

Que me conseillez vous de faire pour y remédier, je ne comprends vraiment pas le pourquoi du comment de ce problème .

Merci de m'aider.
H.

[Hoopsy]

Bonsoir,

C'est bon, maintenant ça marche nickel . J'ai laissé tomber les modules, j'ai utilisé directement les commandes DOS, comme par exemple :

Code :

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

1
2
3
 
system(WinRAR x Polices NouvellesPolices\)
system(WinRAR e Polices NouvellesPolices\)

Merci pour tout .
H.

[Hoopsy]

J'ai oublié de préciser, pour ceux que ça intéresse, que le module Archive::Zip est fait pour manipuler des .zip et non pas des .rar .

Bien à vous.
H.

[djibril]

J'ai oublié de préciser, pour ceux que ça intéresse, que le module Archive::Zip est fait pour manipuler des .zip et non pas des .rar .

Bien à vous.
H.