Discussion :

[kimikou]

Bonjour,

Comment reconnaitre une ligne du type :

Code :

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

qdfsdf qsdqsd 877986 jlskdjs (h_45): ABC_1 zdfjfg t sddf (977s_): qdfjqdf jqdsk BCD_2 sdggdf6876 _(sdfl)

En fait, reconnaitre une ligne de la forme :

Code :

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

<chaine de caractère quelconque> ABC_1 <chaine de caractère quelconque> BCD_2 <chaine de caractère quelconque>

Voici mon idée qui ne fonctionne pas :

Code :

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

1
2
3
4
while ($ligne = <FILE>) {
    if (($ligne =~ /ABC_1 [\w\s]* BCD_2/)) {
	print FILE $ligne;
    }

Merci d'avance pour toute aide.

[Beniou]

bonjour,

Le problème vient du fait que dans tes chaînes à caractères quelconques qui entourent ce qui t'intéresse, il y a les caractères spéciaux => (): (les parenthèses et deux points).

Or, \w ne reconnaît pas ces caractères là.

Deux options :
- tu ajoutes seulement les parenthèses et les deux points dans ta regexp pour ne pas prendre en compte d'autres caractères spéciaux

Code :

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

if ($ligne =~ /ABC_1[\w\s:()]*BCD_2/)

- tu remplaces tout ca par un point qui matche n'importe quel caractère

Code :

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

if ($ligne =~ /ABC_1.*BCD_2/)

A toi de voir suivant tes données ce que tu préfères...