Discussion :

[glouffy6]

Salut,

j'ia une soucis avec une regexp et une chaine avec des espaces.
en fait j'ai une chaine qui ressemble a ca:

FastEthernet 0/3 <unassigned> YES up down
FastEthernet 1/0 10.20.30.2 YES up down
Loopback 1 10.233.14.72 YES up up

et moi je veux recupérer ca et a le formater comme ca :

FastEthernet 0/3 -> FastEthernet0/3
FastEthernet 1/0 -> FastEthernet1/0
Loopback 1 -> Loopback 1

donc j'ai pensé utiliser une regexp mais ca marche pas
Je fais ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
@resu #tableau qui contient le tableau complet
 
foreach my $l (@resu){
 
		if($l =~ /(\S+)\s+/){
 
			$interface{$1}=$1."".$2;
		}
}

Mais bon cela se semble pas etre la bonne méthode

[djibril]

Code :

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

1
2
3
4
5
6
@resu #tableau qui contient le tableau complet
foreach my $l (@resu){
	if($l =~ /(\S+)\s+/){
		$interface{$1}=$1."".$2;
	}
}

evite ce genre de nommage de variables $l c'est pas tres clair et propre.
$interface{$1}=$1."".$2; => $2 n'existe pas vu qu'il n'y a pas de parenthese capturante pour !!

Code :

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

1
2
3
4
5
6
 
foreach my $ligne_resultat (@resu){
  if($ligne_resultat =~ /(\S+)\s+(.+)/){
	$interface{$1}=$1.$2;
  }
}

[glouffy6]

Bon finalement ca marche pas mal j'ai fais ca

Code :

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

1
2
3
4
5
 
if($ligne =~ /(\S+)\s+(\S+)\s+/ and $l !~ m/^Interface/ ){
 
			$interface{$1}=$1.$2;
		}

Mnt j'ai un pb si j'ai un tableau comme ca :

FastEthernet 0/0 <unassigned> YES up up
FastEthernet 0/1 <unassigned> YES up down
FastEthernet 0/2 <unassigned> YES up down
FastEthernet 0/3 <unassigned> YES up down
FastEthernet 1/0 10.20.30.2 YES up down
Loopback 1 10.233.14.72 YES up up


ma regExp va me sortir que une seul fois FastEthernet alors que ben euh il y en a plusieurs ... :-) (Cisco qd tu nous tiens ...)

[djibril]

pour commencer,

Code :

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

/^(\S+)\s+(\S+)\s+/

et non

Code :

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

/(\S+)\s+(\S+)\s+/

ça permet d'eviter des soucis.
De plus, vu que tu fais

Code :

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

$interface{$1}=$1.$2;

bah ça veut dire que tu as un hash %interface avec pour cle les $1.
Or, si à chaque iteration, $1 est identique, bah au final il s'ecrase au fur et à mesure car un hash a toujours des clé uniques

[glouffy6]

ok merci j'ai vu mon erreur !!

en suite je comprend pas pk il vaut mieux faire le premier encadré que tu as marqué ?

[djibril]

ok merci j'ai vu mon erreur !!

en suite je comprend pas pk il vaut mieux faire le premier encadré que tu as marqué ?

pour le ^

[glouffy6]

ouep, mais je croi sque le ^ est la pour faire une recherche que sur le début de la chaine non ?

[djibril]

exactement

[glouffy6]

merci bcp, ca commence a rentrer dans ma ptite tete les reg exp, mais bon chuis pas trop malin comme gars et vu que mes collègues veulent pas m'aider, faut bien que je vous embete un peu

[djibril]

J'ai réfdigé la FAqpour ça, regarde dedans

[glouffy6]

oui oui j'y avais jeté un oeil deja c'est pour ca que j'avais trouvé le début de la "solution", mais aps le tout, je suis ecnore trop boulet pour ca