Regex substitution probleme
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:
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 ?