Regex substitution probleme

**leilan** · 16/10/2014, 12h06

Bonjour,

Mon problème est que je compare une chaine de caractère à une régex. Si elle correspond, alors je supprime cette une partie ou la chaine entière.

Pour effectuer cela je fait ça : (C'est un chtit extrait jai 700 ligne sinon ^^)

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
if ($Expression =~ m/(Revue Spécifications neutronique)/i){	$Expression =~ s/(Revue Spécifications neutronique)/*/ig;
}elsif ($Expression =~ m/(Revue FSS system general design   )/i){	$Expression =~ s/(Revue FSS system general design   )/*/ig;
}elsif ($Expression =~ m/(Revue FSS interfaces general design)/i){	$Expression =~ s/(Revue FSS interfaces general design)/*/ig;
}elsif ($Expression =~ m/(Revue Modelling general design )/i){	$Expression =~ s/(Revue Modelling general design )/*/ig;
}elsif ($Expression =~ m/(Revue Hardware architecture)/i){	$Expression =~ s/(Revue Hardware architecture)/*/ig;
}elsif ($Expression =~ m/(Revue de démarrage)/i){	$Expression =~ s/(Revue de démarrage)/*/ig;
}elsif ($Expression =~ m/( Plan Qualité )/i){	$Expression =~ s/( Plan Qualité )/*/ig;
}elsif ($Expression =~ m/( Traçabilité Cahier de recette-Contrat )/i){	$Expression =~ s/( Traçabilité Cahier de recette-Contrat )/*/ig;
}elsif ($Expression =~ m/( Cahier de Recette (usine) )/i){	$Expression =~ s/( Cahier de Recette (usine) )/*/ig;
}elsif ($Expression =~ m/( Etendue jalons suivi Qualité )/i){	$Expression =~ s/( Etendue jalons suivi Qualité )/*/ig;
}elsif ($Expression =~ m/( Bilan de projet Technique )/i){	$Expression =~ s/( Bilan de projet Technique )/*/ig;
}elsif ($Expression =~ m/( Revue de recette interne Duplication Simu 2 )/i){	$Expression =~ s/( Revue de recette interne )/*/ig;
}elsif ($Expression =~ m/( Revue de passage en support )/i){	$Expression =~ s/( Revue de passage en support )/*/ig;
}elsif ($Expression =~ m/(Revue spécifications achats)/i){	$Expression =~ s/(Revue spécifications achats)/*/ig;
}elsif ($Expression =~ m/(- Revue Spécs 3D)/i){	$Expression =~ s/(- Revue Spécs )/*/ig;
}elsif ($Expression =~ m/(Pré recette site simu1)/i){	$Expression =~ s/(Pré recette site simu1)/*/ig;
}elsif ($Expression =~ m/(Recette simu 2 première duplication remorque)/i){	$Expression =~ s/(Recette simu  )/*/ig;
}elsif ($Expression =~ m/(Recette simu 2 seconde duplication remorque)/i){	$Expression =~ s/(Recette simu  )/*/ig;
}elsif ($Expression =~ m/(Réunion lancement formation)/i){	$Expression =~ s/(Réunion lancement formation)/*/ig;
}elsif ($Expression =~ m/(Utilisateurs)/i){	$Expression =~ s/(Utilisateurs)/*/ig;
}elsif ($Expression =~ m/(Maintenance)/i){	$Expression =~ s/(Maintenance)/*/ig;
}elsif ($Expression =~ m/(Spécifications Formation)/i){	$Expression =~ s/(Spécifications Formation)/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation)/i){	$Expression =~ s/(Bilan interne formation)/*/ig;
}elsif ($Expression =~ m/( Revue de démarrage )/i){	$Expression =~ s/( Revue de démarrage )/*/ig;
}elsif ($Expression =~ m/( Réunion de lancement Formation )/i){	$Expression =~ s/( Réunion de lancement Formation )/*/ig;
}elsif ($Expression =~ m/( Revue de spécification )/i){	$Expression =~ s/( Revue de spécification )/*/ig;
}elsif ($Expression =~ m/(Revue de livraison module)/i){	$Expression =~ s/(Revue de livraison module)/*/ig;
}elsif ($Expression =~ m/(PV de reception module)/i){	$Expression =~ s/(PV de reception module)/*/ig;
}elsif ($Expression =~ m/(Revue de recette inerne)/i){	$Expression =~ s/(Revue de recette inerne)/*/ig;
}elsif ($Expression =~ m/(Revue de livraison )/i){	$Expression =~ s/(Revue de livraison )/*/ig;
}elsif ($Expression =~ m/(PV de réception provisoire )/i){	$Expression =~ s/(PV de réception provisoire )/*/ig;
}elsif ($Expression =~ m/(Livraison document "Guide pédagogique" )/i){	$Expression =~ s/(Livraison document "Guide pédagogique" )/*/ig;
}elsif ($Expression =~ m/(Livraison document "Guide pédagogique")/i){	$Expression =~ s/(Livraison document "Guide pédagogique")/*/ig;
}elsif ($Expression =~ m/(PV de réception provisoire  )/i){	$Expression =~ s/(PV de réception provisoire  )/*/ig;
}elsif ($Expression =~ m/(Revue de recette inerne )/i){	$Expression =~ s/(Revue de recette inerne )/*/ig;
}elsif ($Expression =~ m/(Revue de livraison : Module Pression PZR PP4)/i){	$Expression =~ s/(Revue de livraison : )/*/ig;
}elsif ($Expression =~ m/(PV de réception provisoire : Module Pression PZR PP4)/i){	$Expression =~ s/(PV de réception provisoire : )/*/ig;
}elsif ($Expression =~ m/(Livraison document "Guide pédagogoque" : Module Pression PZR PP4)/i){	$Expression =~ s/(Livraison document "Guide pédagogoque" : )/*/ig;
}elsif ($Expression =~ m/(Livraison document "Guide pédagogique" : Poste d eau CP2)/i){	$Expression =~ s/(Livraison document "Guide pédagogique" : )/*/ig;
}elsif ($Expression =~ m/(Revue de recette interne )/i){	$Expression =~ s/(Revue de recette interne )/*/ig;
}elsif ($Expression =~ m/( Plan Qualité Projet )/i){	$Expression =~ s/( Plan Qualité Projet )/*/ig;
}elsif ($Expression =~ m/( Revue d achat )/i){	$Expression =~ s/( Revue d achat )/*/ig;
}elsif ($Expression =~ m/(Spécification Formation)/i){	$Expression =~ s/(Spécification Formation)/*/ig;
}elsif ($Expression =~ m/(Bilan interne Formation FCSF1 S10-11)/i){	$Expression =~ s/(Bilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne Formation FTB Chinon S11-12)/i){	$Expression =~ s/(Bilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne Formation FCSF1 S23-24)/i){	$Expression =~ s/(Bilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne Formation FTB Blayais S24-25)/i){	$Expression =~ s/(Bilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne Formation FTB FESSENHEIM S38-39)/i){	$Expression =~ s/(Bilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne Formation FCSF1 Chinon S41-42)/i){	$Expression =~ s/(Bilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne Formation FCSF1 CATTENOM S48-49)/i){	$Expression =~ s/(Bilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(ilan interne Formation FTB Bugey S42-43)/i){	$Expression =~ s/(ilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation REP SAT S1)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation REP SAT S2)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation REP SAT S49)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation REP S25)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation REP S43)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Réunion de lancement formation)/i){	$Expression =~ s/(Réunion de lancement formation)/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S5)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S6)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S7)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S8)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S9)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S10)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S11)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S12)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S2)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S37)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S16)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S23)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation TIHANGE 2012)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S20)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation S13)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne Formation S3)/i){	$Expression =~ s/(Bilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne Formation S(2ème semestre))/i){	$Expression =~ s/(Bilan interne Formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation n°1)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation n°2)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation n°3)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation n°4)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation n°5)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation n°6)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;
}elsif ($Expression =~ m/(Bilan interne formation n°7)/i){	$Expression =~ s/(Bilan interne formation )/*/ig;

Maintenant mon problème est que ces regex fonctionnent comme elle ont envie.
Soit ça marche, soit ça me remplace un ou plusieurs espace par mes * soit ça fait rien. (Ce qui n'est pas normal)

Pouvez vous m’éclairer s'il vous plais sur comment supprimer une partie d'une chaîne ?

**Philou67430** · 16/10/2014, 12h29

D'abord, tu n'es pas obligé de tester une regexp avant de faire une substitution : tu tentes de substituer, si le motif existe, il sera remplacé, sinon, rien n'est modifié. L'opérateur de substitution te retourne le nombre de substitution effectuées.

Pour ta chaine de remplacement, tu as mis "*", ce qui veut dire qu'à la place du texte que tu recherches, l'opérateur de substitution mettre le caractère étoile ("*").
Si tu effacer la chaine recherchée, il faut mettre une chaine vide, comme ceci :

Code :

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

$Expression =~ s/(Revue Spécifications neutronique)//ig;

Tu peux aussi faire plusieurs substitution à la fois :

Code :

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

$Expression =~ s/(Revue Spécifications neutronique|Revue FSS system general design   )//ig;

Attention aussi aux espaces dans ton motifs (parfois tu en as mis plusieurs, parfois un seul, parfois à la fin ...) si tu ne sais pas trop combien et quel type d'espaces séparent les mots, utilise \s+ à la place :

Code :

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

$Expression =~ s/(Revue\s+Spécifications\s+neutronique|Revue\s+FSS\s+system\s+general\s+design\s*)//ig;

**leilan** · 16/10/2014, 14h16

Merci de ta réponse !!

Alors j'ai enlevé tous les tests, et j'ai modifier mes regex.

Je vais pas les mettre toutes à la suites car certaine je vais récupérer une valeur autre que rien.

Mais pour vérifier que ça marche je met ** normalement je devrais obtenir que des ** si je décide de tout remplacé on est d'accord ?

mais ça marche pas ...

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
19
20
21
22
23
24
25
26
27
28
 
$Expression =~ s/(\s+Revue\s+de\s+Contrat\s+)/**/ig;
$Expression =~ s/(\s+Revue\s+de\s+Démarrage\s+projet\s+)/**/ig;
$Expression =~ s/(\s+Plan\s+Assurance\s+Qualité\s+)/**/ig;
$Expression =~ s/(\s+Cahier\s+de\s+Recette\s+)/**/ig;
$Expression =~ s/(\s+Traçabilité\s+DSS-Cahier\s+de\s+Recette\s+)/**/ig;
$Expression =~ s/(\s+Plan\s+de\s+Gestion\s+de\s+Configuration\s+)/**/ig;
$Expression =~ s/(\s+Documentation\s+utilisateur\s+)/**/ig;
$Expression =~ s/(\s+Recette\s+Interne\s+)/**/ig;
$Expression =~ s/(\s+Revue\s+passage\s+en\s+maintenance\s+)/**/ig;
$Expression =~ s/(\s+Tests\s+et\s+contrôles\s+avant\s+livra\s+)/**/ig;
$Expression =~ s/(\s+Revue\s+de\s+Livraison\s+)/**/ig;
$Expression =~ s/(\s+Bordereaux\s+de\s+livraison\s+signés\s+par\s+le\s+client\s+)/**/ig;
$Expression =~ s/(\s+PV\s+de\s+Réception\s+Provisoire\s+)/**/ig;
$Expression =~ s/(\s+PV\s+de\s+Réception\s+Définitive\s+)/**/ig;
$Expression =~ s/(\s+Evaluation\s+sur\s+le\s+déroulement\s+de\s+projet\s+)/**/ig;
$Expression =~ s/(\s+Mise\s+à\s+jour\s+des\s+Fiches\s+Evaluation\s+Fournisseurs\s+)/**/ig;
$Expression =~ s/(\s+Bilan\s+de\s+projet\s+)/**/ig;
$Expression =~ s/(\s+Bilan\s+Qualité\s+Projet\s+)/**/ig;
$Expression =~ s/(\s+Archivage\s+Informatique\s+)/**/ig;
$Expression =~ s/(\s+Archivage\s+Documentaire\s+)/**/ig;
$Expression =~ s/(\s+Réunion\s+lancement\s+formation\s+)/**/ig;
$Expression =~ s/(\s+Fiches\s+de\s+mission\s+)/**/ig;
$Expression =~ s/(\s+Lettre\s+de\s+satisfaction\s+Client\s+)/**/ig;
$Expression =~ s/(\s+Project\s+Implementation\s+Plan\s+)/**/ig;
$Expression =~ s/(\s+Project\s+Management\s+Plan\s+)/**/ig;
$Expression =~ s/(\s+Bilan\s+interne\s+Formation\s+)/**/ig;
$Expression =~ s/(Revue\s+spécification\s+achats)/**/ig;

et j'obtien pour ces lignes :

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
19
20
21
22
23
24
25
26
27
28
 
 Revue**de**Contrat 
 ****projet 
 Plan**Assurance**Qualité 
 Cahier**de**Recette 
 Traçabilité**DSS-Cahier**de**Recette 
 Plan**de**Gestion**de**Configuration 
 Documentation**utilisateur 
 Recette**Interne 
 Revue**passage**en**** 
 Tests**et**contrôles**avant**livra 
 ** 
 Bordereaux**de**livraison**signés**par**le**client 
 ** 
 PV**de**Réception**Définitive 
 Evaluation**sur**le**déroulement**de**projet 
 Mise**à**jour**des**Fiches**Evaluation**Fournisseurs 
 ** 
 Bilan**Qualité**Projet 
 ****Informatique 
 ****Documentaire 
 ** 
 Fiches**de**mission 
 Lettre**de**satisfaction**Client 
 Project**Implementation**Plan 
 Project**Management**Plan 
 ** 
Revue spécification achats

Je comprend pas du tout comme sa marche, y a aucune logique dans ce qui ressort pourtant l'expression à l'aire simple

**6ril23** · 16/10/2014, 15h23

1 - Il est très important que tu n'ais pas mis, si tu as un même motif dans plusieurs regex, la regex la moins discriminante en premier

ex OK:

Code :

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

1
2
$Expression =~ s/(Revue\s+spécification\s+achats)/**/ig;
$Expression =~ s/(Revue)/**/ig;

ex KO:

Code :

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

1
2
$Expression =~ s/Revue/**/ig;
$Expression =~ s/Revue\s+spécification\s+achats/**/ig;

car dans le second cas, il remplacerait Revue par ** et ne trouverait plus le motif "Revue\s+spécification\s+achats"

2 - Avec les exemples donnés, on dirait que tu fais une substitution de \s+ par **. J'aurais plutôt utilisé un autre caractère que le "*", genre "#"

3- je commencerais tes regex par \s* au lieu de \s+, ça évitera de ne pas prendre le motif si il manque l'espace en début

4 - J'espère que tu n'as pas trop d'entrée car si à chaque enregistrement il y a 700 if/elsif à utiliser, la perf risque d'être pas terrible. Dans ce cas, essaie de mettre les regex qui seront le plus souvent traitées en premier

**leilan** · 16/10/2014, 15h42

En fait j'ai une liste de désignation (2000 et plus) j'extrais les doublons grâce à Excel et il m'en reste 778.

Après il faut que je match ses désignations et les supprimes. il y en a certaine, a qui à terme, remplacerais la chaine.

Et d'après ce que j'ai donnée c'est pas ce que je voulais

Moi je veux rien a la base mais si je met rien, je ne vois pas les erreurs que je mette un # ou une * j'aurais toujours le même soucis mais je vais testé on sait jamais si l’étoile est interprétée.

merci de m'aidez ^^ vous êtes des amours, car depuis le temps que j'y suis je désespère d'y arriver ...

**leilan** · 16/10/2014, 15h51

Comment faire pour imposer le motif?

si c'est différent de 1 micron alors on fait rien.

Merci @6ril23, j'ai mis \s* au début et puis en fait partout et du coup ça marche mieux mais y en a encore qui fond de la résistance

Je touche au but !

Regex substitution probleme

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager