Module d'Archivage use Archive::Zip

Bonjour


J'utilise pour archiver en Perl le module Archive::Zip, cela marche bien.
Par contre je m'appercois que je perds les accents sur la totalité des répertoires et fichiers que j'archive sous Windows!!


Il y a t'il une solution ou un autre module qui permet de ne pas avoir ces désagréments ?


Personne ne rencontre ce problème ?
Merci pour vos réponses.

Personne ne rencontre ce problème lors de la création de l'archivage ?

montre nous ton code

Bonjour,

Voici le code et il fonctionne, cela me génére bien le Zip avec le nom des répertoire.
Mais que se soit pour le répertoire ou pour les fichiers les accents sont remplacé par Ú (comme Ceci_est_un_rÚpertoire)

A priori mon module Archive-Zip est une version 1.20
Archive-Zip
Provide an interface to ZIP archive files.
Version: 1.20
Released: 2007-11-06
Author: Adam Kennedy <cpan@ali.as>

Code:

---

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

use strict; use Archive::Zip qw( :ERROR_CODES :CONSTANTS );       #Variables utilisées lors de l'archivage my $dir=qw(c:\temp\Archive); my $nom_archive=qw(C:\temp\Archive.zip);   my $erreur = 0;   #On commence par supprimer l'Archive system("del",$nom_archive);     # create a zip file   ##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";

---

Ton script fonctionne chez moi sans soucis.

Par contre mes scripts sont en utf8, c'est peut être ton souci.

Citation:

---

Envoyé par djibril

Ton script fonctionne chez moi sans soucis.

Par contre mes scripts sont en utf8, c'est peut être ton souci.

---

Bonjour,

j'ai effectivement un module utf8, mais comment tu l'utilises lors de l'archivage ?
Tu as rajouté quelque chose dans ton code ?

Car j'ai trouvé comment faire de l'écriture au format utf8 ou comment tu encode une chaine string, mais je n'ai pas trouvé comment mettre l'archive en utf8

Merci de ta réponse djibril.

Je ne te parle pas de mettre un string ou autre en utf8. Mon code est directement en utf8.
mon éditeur de texte est configuré en utf8.

Salut,

J'utilise Edit Pad, et je viens de passer mon text par Convert=>TextEncoding en UTF8, et de relancer l'archivage, mon archive ne possède toujours pas les accentués.

Tu peux vérifier stp si tu utilises le même module d'Archive que moi (et dans la même version 1.20)
Car sinon je ne vois pas d'autres pistes.
Merci d'avance

J'ai aussi la 1.20 et ça marche chez moi. Sinon il y a une version 1.6 de disponible. Mais je ne sais pas si ça résoudra ton souci.

Que se passe-t-il si tu unzip sur la même machine, même OS avec Archive::Zip ?

--
Jedaï