Regex avec un switch

**leilan** · 30/09/2014, 09h37

Bonjour,
Je suis une vrai novice en Regex et j'ai vraiment du mal à comprendre la syntaxe.

Mon problème est simple :
j'ai une variable contenant une désignation. Je veux que grâce à des Regex faire:

Si ma désignation contient au moins deux ou plus des mots de ma Regex alors j'initialise ma variable avec un nombre.

J'ai essayé plusieurs Regex mais perl refusait que j'utilise le \g ce qui pourtant d'après le site http://www.regexr.com/ ma Regex fonctionnait.

Pourriez-vous m'éclairer sur la façon de construire cette Expression. Merci d'avance.

Première version de mon expréssion : Mais la j'avais une erreur : " Reference to invalid group 0 in regex perl ...."

Code :

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

 /(Revue)|(de)|(besoins)|(d'achats)/g

J'ai ensuite pensé à lui faire la liste des mots :

Deuxième version :

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
 
my $typeJalon;
switch (@Ligne[3]) {
	case /Revue|besoins|d'achats/ { $typeJalon = 12; last;}
	case /Evaluation|fournisseurs/ {$typeJalon = 20; last;}
	case /Bilan|interne|formation/ {$typeJalon = 3; last;}
	case /Reunion|lancement|formation /{$typeJalon = 14; last;}
	case /Developpement|des|supports|formations/ {$typeJalon = 5; last;}
	case /Conformité|supports-spécifications/ {$typeJalon = 6; last;}
	case /PV|formation/{$typeJalon = 7; last;}
	case /Redaction|spécifications|formation/ {$typeJalon = 8; last;}
	case /Revue|demarrage/ {$typeJalon = 9; last;}
	case /Plan|qualite/ {$typeJalon = 10; last;}
	case /Revue|transfert|maintenance-chantier/ {$typeJalon = 11; last;}
	case /Revue|Projet-SI/ {$typeJalon = 13; last;}
	case /Reunion|lancement|formation/ {$typeJalon = 14; last;}
	case /Definition|des|besoins|projet/ {$typeJalon = 15; last;}
	case /Revue|lancement|Fin|projet/ {$typeJalon = 16; last;}
	case /Revue|Fin|projet/ {$typeJalon = 17; last;}
	case /Revue|transfert|chantier-maintenance/ {$typeJalon = 18; last;}
	case /Revue|passage|garantie-maintenance/ {$typeJalon = 19; last;}
	case /Revue|specification/ {$typeJalon = 21; last;}
	case /Revue|conception/ {$typeJalon = 22; last;}
	case /Revue|choix|technique/ {$typeJalon = 23; last;}
	case /Revue|livraison|materiel/ {$typeJalon = 24; last;}
	case /Revue|livraison|logiciel/ {$typeJalon = 25; last;}
	case /Revue|recette|interne/ {$typeJalon = 26; last;}
	case /Note|d’organisation|recette/ {$typeJalon = 27; last;}
	case /Evaluation|deroulement|projet/ {$typeJalon = 20; last;}
	case /PV|reception|provisoire/ {$typeJalon = 29; last;}
	case /PV|recette|usine/ {$typeJalon = 30; last;}
	case /PV|recette|site/ {$typeJalon = 31; last;}
	case /PV|reception|definitive/ {$typeJalon = 32; last;}
	case /Rapport|d'activite/ {$typeJalon = 37; last;}
	case /Bilan|annuel/ {$typeJalon = 38; last;}
	case /Visite|preventive|site/ {$typeJalon = 39; last;}
	case /Reunion|annuelle/ {$typeJalon= 40; last;}
	else { $typeJalon = 0; }
}

Mais il ne repère pas correctement les choses ça n'a aucun sens puisqu'il affecte des numéros alors que la désignation traitée ne contient même pas les termes.

Un big mega gros merci à celui qui m'aidera !!!!!!

**Philou67430** · 30/09/2014, 10h36

Pour être bien sûr de comprendre, prenons un exemple : tu voudrais que si la désignation contient soit le mot "Revue", soit le mot "besoins", soit le mot "d'achats", alors $typeJalon soit mis à 12 ? (je dis bien "l'un de ces mots là" : c'est à dire que si la désignation est "Revue démarrage", alors $typeJalon vaudra 12 et non 9 comme tu le suggères dans ton bout de code).

**leilan** · 30/09/2014, 10h55

Hum... tu viens de voir un truc que je pensais pas.

Je vais peut-être limité mes recherches pour que la désignation contienne obligatoirement que deux mots et il faut que se soit insensible aux majuscules/minuscules...

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
 
my $typeJalon;
switch (@Ligne[3]) {
	case /Revue|d'achats/ { $typeJalon = 12; last;}
	case /Evaluation|fournisseurs/ {$typeJalon = 20; last;}
	case /Bilan|interne|formation/ {$typeJalon = 3; last;}
	case /lancement|formation /{$typeJalon = 14; last;}
	case /supports|formations/ {$typeJalon = 5; last;}
	case /Conformité|supports-spécifications/ {$typeJalon = 6; last;}
	case /PV|formation/{$typeJalon = 7; last;}
	case /spécifications|formation/ {$typeJalon = 8; last;}
	case /Revue|demarrage/ {$typeJalon = 9; last;}
	case /Plan|qualite/ {$typeJalon = 10; last;}
	case /transfert|maintenance-chantier/ {$typeJalon = 11; last;}
	case /Revue|Projet-SI/ {$typeJalon = 13; last;}
	case /lancement|formation/ {$typeJalon = 14; last;}
	case /besoins|projet/ {$typeJalon = 15; last;}
	case /Fin|projet/ {$typeJalon = 16; last;}
	case /Revue|Fin|projet/ {$typeJalon = 17; last;}
	case /transfert|chantier-maintenance/ {$typeJalon = 18; last;}
	case /passage|garantie-maintenance/ {$typeJalon = 19; last;}
	case /Revue|specification/ {$typeJalon = 21; last;}
	case /Revue|conception/ {$typeJalon = 22; last;}
	case /choix|technique/ {$typeJalon = 23; last;}
	case /livraison|materiel/ {$typeJalon = 24; last;}
	case /livraison|logiciel/ {$typeJalon = 25; last;}
	case /recette|interne/ {$typeJalon = 26; last;}
	case /Note|recette/ {$typeJalon = 27; last;}
	case /Evaluation|projet/ {$typeJalon = 20; last;}
	case /reception|provisoire/ {$typeJalon = 29; last;}
	case /recette|usine/ {$typeJalon = 30; last;}
	case /recette|site/ {$typeJalon = 31; last;}
	case /reception|definitive/ {$typeJalon = 32; last;}
	case /Rapport|d'activite/ {$typeJalon = 37; last;}
	case /Bilan|annuel/ {$typeJalon = 38; last;}
	case /Visite|preventive/ {$typeJalon = 39; last;}
	case /Reunion|annuelle/ {$typeJalon= 40; last;}
	else { $typeJalon = 0; }
}

merci de te pencher sur mon cas ;-)

**Philou67430** · 30/09/2014, 11h30

Pour l'insensibilité à la casse, ajoute l'option i à la regexp : /Revue|d'achats/i
Cela dit, ton nouveau code ne règle pas le problème lié à la présence du mot "Revue" dans 2 cas de figures où $typeJalon doit avoir deux valeurs différentes.
Ta discrimination n'est pas complète, et par ailleurs, ne me semble pas "judicieuse".

**Lolo78** · 30/09/2014, 11h55

Deux remarques sur des erreurs probables:

Code :

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

1
2
 
@Ligne[3]

Si tu veux le quatrième élément du tableau @Ligne, il faut écrire:

Code :

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

1
2
 
$Ligne[3]

Si tu avais mis:

Code :

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

1
2
3
 
use strict;
use warnings;

au début de ton code (comme tu devrais toujours le faire), le compilateur t'aurait prévenu de cette erreur.

Ensuite, la logique de ton switch est erronée. Si ta donnée comprends le mot "Revue", c'est le premier case qui s'exécutera, même si la ligne contient "'Revue demarrage". Si bien que toutes les autres expressions régulières contenant le mot "Revue" ne servent à rien dans ton code. Ce n'est sans doute pas ce que tu souhaites (même si je ne suis pas sûr de comprendre ce que tu veux vraiment).

J'ajoute que le switch est "déprécié" et ne devrait sans doute plus être utilisé.

**leilan** · 30/09/2014, 13h29

Je n'ai pas donnée la page entière de mon code et j'utilise bien les packages et j'utilise mes tableaux toujours en mettant l'arrobase et je n'ai jamais eu d'erreur. Mais si ce n'est pas de coutume je vais changer merci.

Code :

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

1
2
3
4
5
6
7
8
 
use strict;
use Win32::ODBC;
use Net::SMTP;
use DBI;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Switch;

Après en ce qui concerne mes Regex je vous demande de l'aide car je ne sais pas en faire

Ce que je vous demande c'est de m'expliquer juste qu'elle évolution je peux apporter pour que je trouve le couple 'Revue' et 'démarrage' (par exemple) pour affecter la valeur que j'ai défini.

J'ai une base de données avec un très grand nombre d'enregistrement à basculer dans une nouvelle avec des contraintes plus accru pour éviter les désignations libres.

Je souhaite donc faire en sorte de trouver dans les anciennes désignations le type de la nouvelle.

Pour le switch, s'il n’est plus conseillé de l’utiliser aujourd'hui par quoi pensez-vous que je puisse basculer ? Une condition If me semble trop lourde.

Regex avec un switch

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager