Discussion :

[wolfstark]

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

[Philou67430]

Les expressions régulières du langage sont un peu plus complètes et complexes que les "wildcard" caractères des listes de fichier d'un shell.
Entre autre, si tu veux indiquer "n'importe quel caractère" tu dois explicitement écrire "." (ce caractère est donc "interprété" et pour trouver un caractère point dans une chaine, il faut alors l'échapper "\.").
L'expression régulière pour valider tes noms de fichier serait donc plutôt :
/032.*\.ASCCH|032.*\.ascch/

De même, pour faire une recherche non sensible à la casse, tu peux ajouter l'option /i :

/032.*\.ascch/i

[Lolo78]

Rien à redire aux solutions proposées par Philou, mais j'ajoute pour ta compréhension, wolfstark, que le caractère "*", dans une regex, signifie 0, 1 ou plusieurs exemplaires du caractère qui le précède. Donc, et comme "." signifie un caractère quelconque (à l'exception d'un saut à la ligne dans certains cas particuliers), ".*" signifie 0, 1 ou plusieurs caractères quelconques.

[Philou67430]

comme "." signifie un caractère quelconque (à l'exception d'un saut à la ligne dans certains cas particuliers)

J'espère être bien réveillé aujourd'hui et ne pas encore te reprendre par erreur, mais j'aurais plutôt dit :
comme "." signifie un caractère quelconque hormis le saut à la ligne (sauf en cas d'usage de l'option /s où le saut à la ligne est inclus)

[Lolo78]

Oui, Philou, tu as raison et c'est plus précis comme tu l'écris, j'avais juste voulu signaler en passant que le saut de ligne est un cas un peu à part par rapport au ".", sans vouloir préciser les détails.

[disedorgue]

Bonjour,

On pourrait aussi utiliser glob, ce qui donnerait quelque du genre:

Code :

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

1
2
3
4
5
6
7
my $DirLocalIn = "/tmp/test/1" ;
my $rep = "/tmp/test" ;
my @filestomove=map { s%.*/%% ;$_ } glob "${DirLocalIn}/032*.ASCCH ${DirLocalIn}/032*.ascch"; 
foreach my $old_file (@filestomove) {
    my $old = "/tmp/test/edi/$old_file";
    move $old,$rep || die("Move Failed\n");
}

Bon, là c'est spécifique au bout de code, donc c'est juste dans le cas ou le parcours du répertoire ne sert qu'à faire le move.