Probleme de script regex !!!

**calimero642** · 24/03/2006, 12h47

Bonjour a tous,
voila je vais essayer de vous expliquer ce que je souhaite faire:

Voila mon programme

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
 
 sub Fonct_Loca_Alim
                        {
                                my $Cmd_Snmp_Type = "snmpwalk -v1 -On -c $Com_Snmp";
                                my @Cmd_Snmp_Type_Oid  = `$Cmd_Snmp_Type $Addr_Ip .1.3.6.1.2.1.47.1.1.1.1.5`;
                                my i=0;
                                i=i++;
                                if
                                {
                                print("$Cmd_Snmp_Type_Oid[i]");
                                }
                                #chomp($Cmd_Snmp_Type_Oid);
                                #Enlève le dernier caractère de la chaîne
                                #return @Cmd_Snmp_Type_Oid;
                                #Permet de retourner une variable precise, évite d'avoir la variable par defaut
                                #print("$Cmd_Snmp_Type_Oid[22]");
                        }
 
                        &Fonct_Loca_Alim

Voila ce que me ressort la commande snmp

47.1.1.1.1.5.1 = 3
47.1.1.1.1.5.2 = 5
47.1.1.1.1.5.3 = 5
47.1.1.1.1.5.4 = 5
47.1.1.1.1.5.5 = 4
47.1.1.1.1.5.6 = 5
47.1.1.1.1.5.7 = 7
47.1.1.1.1.5.8 = 8
47.1.1.1.1.5.9 = 5
47.1.1.1.1.5.10 = 5
47.1.1.1.1.5.11 = 6
47.1.1.1.1.5.12 = 8
47.1.1.1.1.5.13 = 8
47.1.1.1.1.5.14 = 8

Et je voudrais matcher les lignes qui valent 6 poue en extraire le dernier chiffre de OID correspondant !!
exemple >>>47.1.1.1.1.5.11 = 6
c est le 11 qui m interesse !!!
Comment puis je faire ?
Merci d avance Jules
Merci d avance Jules

**djibril** · 24/03/2006, 12h50

Code :

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

1
2
$ligne =~ / \.(\d+)\s+=\s+6$/
$mon_chiffre = $1;

**calimero642** · 24/03/2006, 12h52

Merci mais je fais comment si il y a plusieurs lignes ! qui repondent a cette regex ?
Merci jules

**calimero642** · 24/03/2006, 12h59

Merci mais J'ai essaye ca, mais ca ne matche pas !
Attenttion j ai au moins deux lignes a matcher.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
   sub Fonct_Loca_Alim
                        {
                                my $Cmd_Snmp_Type = "snmpwalk -v1 -On -c $Com_Snmp";
                                my @Cmd_Snmp_Type_Oid  = `$Cmd_Snmp_Type $Addr_Ip .1.3.6.1.2.1.47.1.1.1.1.5`;
                                  my @Alim = $2   if (@Cmd_Snmp_Type_Oid  =~/ \.(\d+)\s+=\s+6$/);
 
                                print("$Alim[0]");
                                print("$Alim[1]");
 
 
                        }

Mais ca marche pas sniffsnifff !!!

Merci d'avance Jules

**djibril** · 24/03/2006, 14h03

Code :

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

my @Alim = $2   if (@Cmd_Snmp_Type_Oid  =~/ \.(\d+)\s+=\s+6$/);

c'est pas bien ecrit tout ça

.
moi je ferais ainsi :

Code :

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

1
2
3
4
foreach my $ligne (@Cmd_Snmp_Type_Oid) {
$ligne =~/ \.(\d+)\s+=\s+6$/);
push (@Alim, $1) if($1);
}

**Mr6** · 24/03/2006, 14h18

pourquoi $2 alors qu'on ne voit qu'un seul jeu de parenthèses ?!?

**calimero642** · 24/03/2006, 14h19

Ben c est parceque j ai une autre regex audessu avec des parentheses ! Donc je suis passé en $2 !

**djibril** · 24/03/2006, 14h25

non Mr6 a raison, dans ta regex, c'est $1 et non $2. si t'as une autre regex, bah les compteurs seront remis à zero (c'est à dire $1, $2, etc).
Cours sur les regex, confere FAQ.

**Mr6** · 24/03/2006, 14h26

grillé par djibril

**calimero642** · 24/03/2006, 14h33

Merci je comprends mieux maintenant pour l'histoire des $1. etc;

Mais mon code ne matche pas le "11" de la ligne !!! que je souhaite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 sub Fonct_Loca_Alim
                        {      
                                my $Cmd_Snmp_Type_Oid ='47.1.1.1.1.5.11 = 6';
                                my @Alim;
                                foreach my $ligne ($Cmd_Snmp_Type_Oid)
                                {
                                         $1 = $ligne =~/\.(\d+)\s+=\s+6$/);
                                         push (@Alim, $1);
                                         print("@Alim[1]");
                                }
                         }
 
                        &Fonct_Loca_Alim

J ai meme une erreur sur la regex "un styl de syntax error";

Merci d avance pour le coup de pouce.
Jules

**djibril** · 24/03/2006, 14h33

Envoyé par Mr6

grillé par djibril

8) 8)

**Mr6** · 24/03/2006, 14h38

Code :

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

1
2
3
4
5
 
	foreach my $ligne ($Cmd_Snmp_Type_Oid) {
		push (@Alim, $1) if $ligne =~/\.(\d+)\s+=\s+6$/;
		print("@Alim[0]");
	}

edit :

ou....

Code :

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

1
2
3
4
5
 
	foreach ($Cmd_Snmp_Type_Oid) {
		push (@Alim, $1) if /\.(\d+)\s+=\s+6$/;
		print("@Alim[0]");
	}

**djibril** · 24/03/2006, 14h38

Envoyé par calimero642

Merci je comprends mieux maintenant pour l'histoire des $1. etc;

Mais mon code ne matche pas le "11" de la ligne !!! que je souhaite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 sub Fonct_Loca_Alim
                        {      
                                my $Cmd_Snmp_Type_Oid ='47.1.1.1.1.5.11 = 6';
                                my @Alim;
                                foreach my $ligne ($Cmd_Snmp_Type_Oid)
                                {
                                         $1 = $ligne =~/\.(\d+)\s+=\s+6$/;
                                         push (@Alim, $1);
                                         print("@Alim[1]");
                                }
                         }
 
                        &Fonct_Loca_Alim

J ai meme une erreur sur la regex "un styl de syntax error";

Merci d avance pour le coup de pouce.
Jules

Tu te melange les pedales dans ton ecriture.
soit tu ecris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 sub Fonct_Loca_Alim
                        {      
                                my $Cmd_Snmp_Type_Oid ='47.1.1.1.1.5.11 = 6';
                                my @Alim;
                                foreach my $ligne ($Cmd_Snmp_Type_Oid)
                                {
                                         $toto = $ligne =~/\.(\d+)\s+=\s+6$/;
                                         push (@Alim, $toto);
                                         print $Alim[0];
                                }
                         }
 
                        &Fonct_Loca_Alim

et dans $toto t'aura la valeur de $1.
ou bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 sub Fonct_Loca_Alim
                        {      
                                my $Cmd_Snmp_Type_Oid ='47.1.1.1.1.5.11 = 6';
                                my @Alim;
                                foreach my $ligne ($Cmd_Snmp_Type_Oid)
                                {
                                         ligne =~/\.(\d+)\s+=\s+6$/;
                                         push (@Alim, $1);
                                         print $Alim[0];
                                }
                         }
 
                        &Fonct_Loca_Alim

Et fais attention avec l'ecriture des cases de tableau. c'est $tableau[0] et non @tableau[0].
Relis les cours de perl de david et le FAQ ecrite par nos soins.
Ca te permettra de mieux comprendre et moins perdre de temps à rechercher tes erreurs.

**calimero642** · 24/03/2006, 14h51

Oki merci pour le coup de main tres utile d ailleurs,

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
 
#!/usr/bin/perl
use strict;
sub Fonct_Loca_Alim
                        {
                                my $Cmd_Snmp_Type_Oid ='47.1.1.1.1.5.11 = 6';
                                my @Alim;
                                foreach my $ligne ($Cmd_Snmp_Type_Oid)
                                {
                                        my $toto = $ligne =~/\.(\d+)\s+=\s+6$/);
                                         push (@Alim, $toto);
                                         print $Alim[0];
                                }
                         }
 
                        &Fonct_Loca_Alim

Mais j ai une erreur que je ne comprends pas !!!

syntax error at ./essai.pl line 9, near "/\.(\d+)\s+=\s+6$/)"
Execution of ./essai.pl aborted due to compilation errors.

Merci d avance Jules

**calimero642** · 24/03/2006, 14h55

C est bon c etaiots une parenthese qui manquait !
merci je vais tester now !!
Jules

**calimero642** · 24/03/2006, 15h19

Oki ca fonctionne bien lorsque je n'ai qu une variable qui peut etre matchée mais si j en ai plus, ca merde !

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
 
 my $Alim1;
                my $Alim2;
                sub Fonct_Loca_Alim
                        {       #print("ok\n");
                                my $Cmd_Snmp_Type = "snmpwalk -v1 -On -c $Com_Snmp";
                                my @Cmd_Snmp_Type_Oid  = `$Cmd_Snmp_Type $Addr_Ip .1.3.6.1.2.1.47.1.1.1.1.5`;
                                #chomp($Cmd_Snmp_Type_Oid);
                                #return @Cmd_Snmp_Type_Oid;
                                my @Alim;
                                foreach my $ligne (@Cmd_Snmp_Type_Oid)
                                {
                                        $ligne =~(/\.(\d+)\s+=\s+6$/);
                                         push (@Alim, $1);
                                #         print "Alimentation 1: $Alim[0]" ;
                                #        print "Alimentation 2: $Alim[1]" ;
                              return $Alim1=$Alim[0];
                              return $Alim2=$Alim[1];
                                }
                         }
                 &Fonct_Loca_Alim;
                print"$Alim1 et $Alim2";

Il ne me renvoie rien mais je suis presque sur que ca vient de la ligne:

foreach my $ligne (@Cmd_Snmp_Type_Oid)
Est ce que j ai le droit de lui passer un tableau qui devrait contenir:

47.1.1.1.1.5.1 = 3
47.1.1.1.1.5.2 = 5
47.1.1.1.1.5.3 = 5
47.1.1.1.1.5.4 = 5
47.1.1.1.1.5.5 = 4
47.1.1.1.1.5.6 = 5
47.1.1.1.1.5.7 = 7
47.1.1.1.1.5.8 = 8
47.1.1.1.1.5.9 = 5
47.1.1.1.1.5.10 = 5
47.1.1.1.1.5.11 = 6
47.1.1.1.1.5.12 = 8

Merci d avance Jules

**Mr6** · 24/03/2006, 15h25

fais plutôt ceci :

Code :

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

1
2
3
4
5
6
 
...
     return @Alim;
}
my @ret_alim = Fonct_Loca_Alim;
print "@ret_alim";

**calimero642** · 24/03/2006, 15h25

En faite la variable censée changer de valeur $ligne prend la premiere ligne et c est tout. Elle ne change pas !!!
Comment je peux faire ?
Merci Jules

**Mr6** · 24/03/2006, 15h32

Lorsque tu fais un :

Code :

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

print "$Cmd_Snmp_Type_Oid[0]\n";

tu obtiens quoi ? la 1ère ligne de résultat ou tous les résultats ?

**calimero642** · 24/03/2006, 15h36

Il me donne ce que je pensais c est a dire la premiere ligne du tableau:

.1.3.6.1.2.1.47.1.1.1.1.5.1 = 3

Le tableau contenu dans
@Cmd_Snmp_Type_Oid =
47.1.1.1.1.5.1 = 3
47.1.1.1.1.5.2 = 5
47.1.1.1.1.5.3 = 5
47.1.1.1.1.5.4 = 5
47.1.1.1.1.5.5 = 4
47.1.1.1.1.5.6 = 5
47.1.1.1.1.5.7 = 7
47.1.1.1.1.5.8 = 8
47.1.1.1.1.5.9 = 5
47.1.1.1.1.5.10 = 5
47.1.1.1.1.5.11 = 6
47.1.1.1.1.5.12 = 8

Merci d avance Jules

Probleme de script regex !!!

Langage Perl

Discussions similaires

Partager

Partager