Problème expression régulière

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:

---

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

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

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.

Citation:

---

Envoyé par Lolo78

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)

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.

Bonjour,

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

Code:

---

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.

Attention avec le glob en perl qui est capable de sortir des noms de fichiers qui n'existent pas:

Code:

---

perl -E'say join "\n", glob "./{choucroute_,tête_dé}garnie"'

---

Mouais, c'est vrai que glob peut faire des choses un peu bizarres si on l'utilise de façon bizarre. Mais utilisée normalement avec un masque de fichier correspondant à celui du système d'exploitation, cette fonction est tout-à-fait fiable, super utile et bien plus pratique à bien des égards que le couple opendir/readdir, au point que je n'utilise pratiquement jamais ce dernier et presque toujours glob.

Pour le cas de glob qui est soulevé, c'est indiqué dans la documentation de celle-ci.
Maintenant, on peut dire aussi de faire attention à sa regex: ici on est typiquement dans une regex non sure puisque non bornée.
Des fichiers tels que 'titi0320001.ASCCHtoto' seront aussi pris en compte.

Sous Windows, il vaut mieux utiliser File::Glob::bsd_glob que le glob du Core, notamment pour une meilleur gestion des espaces dans les noms de fichier

Je ne cherche pas à départager Superman de Goldorak mais plutôt à noter le coté piégeux, comme disent les québecois, de Core::Glob en Perl, là où on s'attend à trouver un comportement plus intuitif comme le renvoi d'une liste vide.

L'exemple que j'ai donné peut sembler tiré par les cheveux (bien que), mais on peut très bien observer le phénomène avec un exemple plus simple (ici sans d'accolades): glob "existepas index.*" ou glob "existepas".

Dés lors qu'un élément se trouve sans wildcard *, ? ou [Ab36], il fait partie de la liste de manière inconditionnelle. La documentation explique ce comportement de <exp_glob> (soit glob("exp_glob")) comme étant calqué sur le résultat d'un echo exp_glob | tr -s ' \r\t\f' '\\012\\012\\012\\012' (puis chaque ligne est chompée). C'est loin d'être évident et c'est un sacré chausse-trappe!

Pour ce qui est de l'utilisation de File::Glob::bsd_glob sous Windows je ne peux pas essayer car je n'ai plus de place pour installer une VM. Par contre bsd_glob permet d'utiliser l'option GLOB_BRACE qui semble éviter le problème des fichiers non-existants.

Effectivement il manque les ancres à la pattern regex.