Probleme de script regex !!!

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 ?

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