Bonjour à tous

je m'initie au langage perl et comme par hasard j'ai un petit exercice perso que j'ai besoin d'effectuer.

La sauvegarde de mon répertoire Maildir m'a rajouté à la fin de chaque fichier du répertoire et sous répertoire le caractère ~.

Je souhaiterais le supprimer sur tous les fichiers.

Pour le moment j'ai tenté de créer un tableau avec le contenu des fichiersvia la FAQ.

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
 
 
#!/usr/bin/perl
 
use strict;
 
my($maildir) = '/home/maildir/damien/Maildir';
 
sub lister_fichiers_recur {
        my ($repertoire) = $maildir;
        my @fichiers = ();
                opendir (DIR , $repertoire) || die "impossible d'ouvrir le repertoire $repertoire\n";
                        while (<DIR>) {
                                if ( -f "$_") {
                                        push (@fichiers, $_);
                                }
                                elsif ( -d "$_") {
                                        push (@fichiers, lister_fichiers_recur($_));
                                }
                        }
                closedir (DIR);
 
#       print $fichiers."\n";
        return @fichiers;
}
Je me doute déjà que ce code contient des erreurs mais lesquelles?
Sinon avez-vous une meilleur méthode?
Merci pour votre aide

Et donc ensuite je souhaiterais récupérer ce tableau pour supprimer le caractère sur tous les fichiers listés dans le tableau.


Merci encore pour votre aide précieuse.