Bonjour à tous,

J'ai un problème avec un script dans le cadre de mon projet d'école. Il y a une étape de mon script qui ne fonctionne pas. Cette étape est le déplacement de tout les fichiers ayant comme nom "032* (suivi de 0 ou plusieurs caractères).ASCCH" du répertoire courant vers un autre répertoire.

Voici le bout de mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
my $DirLocalIn = "/tmp/test/1" ;
my $rep = "/tmp/test" ;
opendir(FILES, $DirLocalIn) || die("Cannot open directory $DirLocalIn\n");
                        my @filestomove= readdir(FILES);
                        foreach my $old_file (@filestomove) {
                                if ($old_file =~ /032*.ASCCH|032*.ascch/) {
                                        my $old = "/tmp/test/edi/$old_file";
                                        move $old,$rep || die("Move Failed\n");
                                }
                        }
Il semblerait que l'expression régulière utilisé pour la variable $old_file ne soit pas correct...Mais je ne trouve pas la bonne formule.

Je vous remercie en avance de votre aide

WolfStark