Discussion :

[lu6fer]

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 :

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

%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 :

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

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

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 :

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

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

[lu6fer]

Personne pour me donner une indication ?

je me suis peut être mal exprimer

[knarf87]

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 :

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

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

Si tu mettait :

Code :

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

  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 :

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

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

[lu6fer]

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 :

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

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 :

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
 
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";
						}
				}
		}
}

[knarf87]

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

Code :

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

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";

[lu6fer]

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