Discussion :

[Patrick]

J'ai un fichier que je voudrais traiter avec une expression reguliere (pour supprimer un certain nombre d'informations). Comme un exemple vaut mieux qu'un long discours , voici donc un extrait du fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
kqfkbqsdfbsj
 
avant premier chat
chat
zzz>
 
chien
apres premier chien
 
avant second chat
chat
yyyy
vvvvv
chien
apres second chien
 
XXXXXXX

En fait je voudrais supprimer toutes les chaines commençant par chat et finissant par chien. Avec l'expression suivante :

Code :

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

1
2
 
$resultat=~ s!chat(.|\s)*chien!!ig;

(où $resultat est une variable chaine de caractere qui représente le contenu du fichier)
J'obtient :

Code :

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

1
2
3
4
5
6
7
 
kqfkbqsdfbsj
 
avant premier chat
apres second chien
 
XXXXXXX

ALors que je voudrais

Code :

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

1
2
3
4
5
6
7
8
9
10
 
kqfkbqsdfbsj
 
avant premier chat
apres premier chien
 
avant second chat
apres second chien
 
XXXXXXX

[Patrick]

Juste un petit rectificatif, lorsque j'écrit

Code :

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

1
2
3
4
 
"avant premier/second chat"
ou
"apres premier/second chien"

il faut lire plutot

Code :

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

1
2
3
4
 
"avant premier/second chaine cherchée 1"
ou
"avant premier/second chaine cherchée 2"

Car sinon évidement le résultat n'est pas bon ...

[Jeh]

bah tes chaines ne sont pas sur la même ligne, donc déjà, ça ne peut pas marcher avec la substitution.
Et ça s'utilise aussi avec des "!" ?
Ce qu'il faudrait faire, d'après moi, c'est lire chaque ligne de ton fichier (ce que tu dois déjà faire) une fois que tu trouves 'chat', tu stockes tout ce qu'il y a à la suite jusqu'à 'chien'. Si tu trouves 'chat' avant chien, tu remets ta variable de stockage à vide. Y'a moyen de faire cela avec deux boucles while imbriquées.

[Fanch.g]

(où $resultat est une variable chaine de caractere qui représente le contenu du fichier)

bah tes chaines ne sont pas sur la même ligne

????

[lalystar]

Je crois que j'ai ce qu'il te faut :

Code :

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

$fichier =~ s/(\n?)^chat(.*?)chien$//igsm;

Ca te convient ?


Laly.

[Jeh]

(où $resultat est une variable chaine de caractere qui représente le contenu du fichier)

bah tes chaines ne sont pas sur la même ligne

????

Je retire...

[Patrick]

Merci ce n'était pas exactement cela, mais l'idée du "?" était bonne, voilà comment je m'en suis sorti :

Code :

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

1
2
3
 
$fichier=~ s!(\s*)!!ig;
$fichier=~ s!<chat(.*?)chien!!ig;

Il faut noter qu'ici j'ai perdu les caractères de type "\s" mais ils ne m'étaient pas utiles

[Patrick]

Syntaxe exacte (pas de "<") :

Code :

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

1
2
3
 
$fichier=~ s!(\s*)!!ig; 
$fichier=~ s!chat(.*?)chien!!ig;