[REGEX] Souci de regex

Bonjour à tous,

j'ai un petit souci avec une regex.

J'ai un fichier qui comprend des blocs de données.

Je récupère toutes les données du fichier dans un tableau, puis dans une variable avec join("",<fic>)

De là, j'utilise une regex (merci djibril pour l'explication il y a quelques temps afin de dissocier mes blocs de commandes dans un tableau.
Je fais ainsi:

Code:

---

1 2 3 4 5

open(fic,$RepEnvoi.$FileToSend) or die "Grave erreur. Ouverture $RepEnvoi$FileToSend impossible $!\n"; $my_lines=join("",<fic>); close(fic); my @BLOCS=$my_lines=~/^(EDI_DC40.+?EDI_DC40.+?$)/msg;

---

Jusque là, pas de problème ...

Mais ensuite, pour chacun des éléments du tableau @BLOCS, je veux faire une autre regexp qui doit vérifier les règles suivantes:
- la ligne commence par $Segment
- puis, il y a 40 (et 40 uniquement) espaces
- puis, il y a 15 fois n'importe quel caractère
- puis, il y a $Segment_qualifier

Si le motif est trouvé, on prend les 35 premiers caractères du sous ensemble après le motif ( $' )
J'ai donc fait la regexp suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

for(my $i=0;$i<=$#BLOCS;$i++) {   if($BLOCS[$i]=~/^($Segment)\s{40}.{15}$Segment_qualifier/mg); { print "SS ensemble après: ".substr($',0,35)."\n"; } } Je traite $BLOCS[$i] ainsi: - m : pour prendre la chaine comme plusieurs lignes - g : recherche plusieurs fois (même si c'est sur que on trouvera la ligne une et une seule fois

---

Donc, il y a visiblement un gros problème dans ma 2nde regexp.
Je pense pas que je n'applique pas les règles d'écriture correctement.

Pouvez vous me filer un coups de pouce la dessus ??
Merci beaucoup !!!

Tu es sur d'avoir compter les espaces dans les 15 caractères séparant les espaces et $Segment_qualifier ? Je ne vois pas de problèmes dans ta regex...

Au puire, montre nous un exemple d'expressions à matcher, ça peut nous aider...

Ba en fait, je croyais avoir une erreur dans ma regex car le lancement du programme me ressort l'erreur suivante:

Code:

---

1 2	syntax error at C:/Perl/lib/TX2/control.pm line 109, near ");"

---

juste à cette ligne là !!!!

Et voilà la ligne que laquelle s'exerce la seconde regexp:

Citation:

---

E2EDK02 0000110000000100116-376133-2P3EPNJ 20060222

---

Avec la regexp (un peu modifiée car l'autre était un exemple)

Code:

---

1 2	$BLOCS[$i]=~/^($Segment)(\s){42}.{11}$Segment_qualifier/msg

---

avec $Segment = "E2EDK02"
et $Segment_qualifier = "001"

Le but étant de récupérer "00116-376133-2P3EPNJ "
(substr($',0,35))

regarde très attentivement ta ligne (surtout à la fin), et tu vas trouver l'erreur :

Code:

---

1 2	if($BLOCS[$i]=~/^($Segment)\s{40}.{15}$Segment_qualifier/mg);

---

Parfois on cherche des choses compliqués, alors que c'est juste une faute de frappe... :roll:

--
Jedaï

Aïe Aïe Aïe, j'avais pas vu:

Code:

---

1 2	if($BLOCS[$i]=~/^($Segment)(\s){40}.{15}$Segment_qualifier/mg)

---

!!!!!!

J'ai envie de me jeter par la denêtre tiens !!! :cry: :oops: :oops:

Merci Jedaï