Probleme de script regex !!!

Version imprimable

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

Voila mon programme

Code:

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

Code:

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

:wink:

24/03/2006, 12h52
calimero642

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

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

Code:

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

24/03/2006, 14h03
djibril
Code:

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

8O 8O c'est pas bien ecrit tout ça :wink: .
moi je ferais ainsi :
Code:

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

pourquoi $2 alors qu'on ne voit qu'un seul jeu de parenthèses ?!? 8O
24/03/2006, 14h19
calimero642

Ben c est parceque j ai une autre regex audessu avec des parentheses ! Donc je suis passé en $2 !
24/03/2006, 14h25
djibril

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.
24/03/2006, 14h26
Mr6

grillé par djibril ;)

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:

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

24/03/2006, 14h33
djibril

Citation:

Envoyé par Mr6

grillé par djibril ;)

:lol: :lol: 8) 8)

Code:

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:

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

Citation:

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:

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:

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:

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.

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

Code:

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

24/03/2006, 14h55
calimero642

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

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:

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

fais plutôt ceci :

Code:

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

24/03/2006, 15h25
calimero642

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
24/03/2006, 15h32
Mr6

Lorsque tu fais un :

Code:

print "$Cmd_Snmp_Type_Oid[0]\n";

tu obtiens quoi ? la 1ère ligne de résultat ou tous les résultats ?
24/03/2006, 15h36
calimero642

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

Tien je vais redonner mon code et le probleme c est que je ne parcours pas le tableau au traver de la variable $ligne !!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 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;
                                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];
                                }
                        }

Normalement je devrais matcher deux valeurs $Alim[0] et $Alim[A];

Merci d avance Jules

quand tu mets un return, tu quittes ton sub, sans te soucier du reste, hors là, il est en plein dans ton foreach, ce qui fait que tu quittes dès que tu as testé ta 1ère ligne de tableau, même si elle est vide !

Il te faut donc faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 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; foreach (@Cmd_Snmp_Type_Oid) { push (@Alim, $1) if /\.(\d+)\s+=\s+6$/; } return $Alim[0], $Alim[1]; } my ($Alim0, $Alim1) = Fonct_Loca_Alim; print "$Alim0 et $Alim1\n";
@+
Mr6

PS : dans ton tableau tu n'as qu'un seul "... = 6", donc $Alim[1] risque d'attendre longtemps avant de se remplir, non ?

28/03/2006, 15h18
calimero642

Ok c est ready si jamais besoin du code faut pas hesiter !!!!
Jules