regexp au mieux

Bonjours a toutes et a tous,

voila j'ai un léger souci avec une regexp en perl.

je doit parcourir un fichier de log, et y extraire quelques information, jusque la pas de problème :)

ensuite est grâce a une table de hash je repère quelques info, et les converti en texte.

table de hash

Code:

---

%corres = { '.1.3.6.1.4.1.2011.6.3.23.6.0' => 'hwConfigLockOperate' };

---

La table de hash n'est ici qu'un extrait, elle est créer a partir d'un fichier plat csv


je parcours donc ma table de hash et cherche a matcher les correspondances de mon fichier

Code:

---

1 2 3 4 5 6 7 8

my @tmp = split (/\|/,$_); foreach my $info (@tmp) { foreach my $h (keys(%corres)) { if ($info =~ /^$h(.*)$/) { print "\t".$corres{$h}." => ".$1."\n"; } } }

---

Fichier

Citation:

---

OID|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.3.4194337024.32|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.5.4194337024.32|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.14.4194337024.32|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.26.4194337024.32|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.25.4194337024.32
OID|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.3.4194337024.32|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.5.4194337024.32|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.14.4194337024.32|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.26.4194337024.32|.1.3.6.1.4.1.2011.5.100.1.1.1.5.1.25.4194337024.32
OID|.1.3.6.1.4.1.2011.5.100.1.1.1.47.1.1.4194337024.32|.1.3.6.1.4.1.2011.5.100.1.1.1.47.1.2.4194337024.32
OID|.1.3.6.1.4.1.2011.6.3.23.6.0|.1.3.6.1.4.1.2011.6.3.23.2.0
OID|.1.3.6.1.4.1.2011.5.100.1.1.1.12.1.6.4194337024.4294967295
OID|.1.3.6.1.4.1.2011.5.100.1.1.1.13.1.3.4194337024.32.835.47
OID|.1.3.6.1.4.1.2011.5.14.5.2.1.2.4294967295

---

Le probleme c'est que certain OID, sont tres proches exemple :

Code:

---

1 2	.1.3.6.1.4.1.2011.5.14.5.2.1.2 .1.3.6.1.4.1.2011.5.14.5.2.1.20

---

dans ce cas, si la valeur .1.3.6.1.4.1.2011.5.14.5.2.1.20, il ne matchera que .1.3.6.1.4.1.2011.5.14.5.2.1.2

Il serait possible de réfléchir a l'inverse, et de chercher a matcher directement dans le fichier, et a faire la correspondance, mais les OID du fichier de log, n'ont pas la meme taille (nb de point), les valeurs concatener apres les OID (ex :4194337024.32.835.47) ne sont pas les meme, et n'ont pas la meme taille

Donc ma question est, est-il possible de forcer a matcher au mieux, a savoir trouver la correspondance la plus proche, dans mon exemple, le .1.3.6.1.4.1.2011.5.14.5.2.1.20 au lieu du .1.3.6.1.4.1.2011.5.14.5.2.1.2.

ou sinon y a t il une autre façon de voir les choses a laquelle je n'aurais évidement pas pensé.

Merci d'avance

Personne pour me donner une indication ?

je me suis peut être mal exprimer

Bonjour.
J'ai peut-être une solution ça peut paraître stupide mais si au lieu de mettre le pattern matching que j'ai vu sur ton code :

Code:

---

if ($info =~ /^$h(.*)$/)

---

Si tu mettait :

Code:

---

if ($info =~ /^$h\.(.*)$/)

---

Je pense que tu devrait pouvoir avoir la valeur qui t'intéresse.
En effet si j'ai bien compris tu as la clé de ta table de hashage qui précède la valeur que tu souhaites afficher. Et si j'en croit ton fichier, ces deux valeurs sont séparées par un ".".
Si c'est le cas les valeurs de clé

Code:

---

1 2	.1.3.6.1.4.1.2011.5.14.5.2.1.2 .1.3.6.1.4.1.2011.5.14.5.2.1.20

---

ne devrait plus être confondues par ton pattern matcher.
Voilou
FX

J'y ai pensé aussi, mais le problème est que certain OID n'ont pas de point puisqu'ils n'ont pas de donnée concaténées.

j'ai donc tester avec l'ajout d'un '?'

Code:

---

if ($info =~ /^$h\.?(.*)$/)

---

mais le le problème est le même il me resort l'oid le plus court.

donc pour le moment j'ai trouver une solution, qui n'est pas tres propre je trouve mais qui a le mérite de fonctionné correctement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

foreach my $info (@tmp) { foreach my $h (keys(%corres)) { if ($info =~ /^$h(.*)$/) { # Si $1 existe, on a des donnee concattener if ($1) { # On peu donc matcher avec un point pour eviter # les confusion d'oid if ($info =~ /^$h\.(.*)$/) { print "\t".$corres{$h}." => ".$1."\n"; } } # Sinon on n'a pas de donnee concatener # on affiche donc que l'oid else { print "\t".$corres{$h}."\n"; } } } }

---

Bah si ça marche une petite amélioration algorithmique qui te permettra pour que ce soit un peu plus propre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

print "\t".$corres{$h}; if ($info =~ /^$h(.*)$/) { # Si $1 existe, on a des donnee concattener if ($1) { # On peu donc matcher avec un point pour eviter # les confusion d'oid if ($info =~ /^$h\.(.*)$/) { print " => ".$1; } } } print "\n";

---

Ton algo ne correspond pas a mon besoin, mais, rien de bien grave puisque mal grès mon insatisfaction, mon 1er jet a le mérite de fonctionner.

Puis rien ne m'oblige a atteindre un niveau de performance extrême :)

en tout cas merci pour tes pistes :)