Bonjour à tous,

Je m'occupe d'un petit parc informatique d'une vaintaine d'employés.
J'ai installé sur chaque poste (XP/Vista/7), un logiciel qui fait des sauvegardes quotidiennes, mais localement seulement.

Je veux ouvrir un répertoire en partage, sur un serveur de fichier et, m'assurer d'une copie de chaques sauvegardes, de chaques postes.

J'ai créer un script Perl qui, entre autres, fait une listes des fichiers qui sont dans le répertoire d:/Backup et les copie, sur le partage distant.

Le problème est que si un nom de fichier contient un accent (à, ç, é, etc.), l'accent est remplacé par un symbole quelconque (i.e. é devient Ü).

Par trace, je vois que les accents ont déjà été modifié au moment de la lecture du répertoire; avant même qu'ils soient copiés:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
opendir hDossierALire, $dir || die("Impossible d'ouvrir le dossier...");
 
print "\n\nListe A : \n\n";
 
foreach $nomFichier (readdir hDossierALire) 
{
    print $nomFichier."\n" if $nomFichier =~ m/zip$/i;      # Les accents sont changés.
    push (@liste_A, $nomFichier) if $nomFichier =~ m/zip$/i;   
}
 
close (hDossierALire);
Merci pour votre aide et vos suggestions.