regex et lecture ligne par ligne

salut,
j'ai rencontré dans mon code un problème de regex pour calculer le nombre de fois où je rencontre dans mon fichier (que je lie ligne par ligne) le motif suivant:

Code:

---

IF(q21 IN {...n'importe quoi }) THEN {

---

remarque:pour le q21, c'est à titre indicatif mais ça peut être q suivi par autre chose.

en résume le motif

Code:

---

IF(q... IN {quelque chose ..}) THEN {

---

merci pour votre aide

voila ce que j'ai fait

Code:

---

$nfil++ if($line =~ /^\s*IF\(.*?IN.*? \)\sTHEN\s{/);

---

mais ça ne marche pas, si quelqu'un a une idée merci de me orriger

remarque:
j'ai mis les \s là où il ya des espaces.

enlève l'espace ici

Code:

---

*? \)

---

entre le "?" et le "\"

c'est fait et une erreur de moins, merci !

Code:

---

$nfil++ if($line =~ /^\s*IF\(q.*?IN.*?\)\sTHEN\s{/);

---

j'ai ajouté q pour le nombre de question mais :(

salut à nouveau,

je viens d'essayer ceci, mais ça ne resoud pas mon probleme.

Code:

---

$nfil++ if($line=~ /^\s*IF\(q\d*.*\sIN\s\{.*?\}\)\sTHEN\s{/)

---

Merci, pour votre correction