Discussion :

[devets]

Bonjour à tous.
Je souhaiterais faire quelque chose d'assez simple mais là je galère depuis des heures.

J'ai une longue chaine "machaine" extraite d'un fichier de config.
J'ai plusieurs lignes du type :
interface toto1
interface toto22
interface toto123
...

Je sais compter le nombre d'occurrences

Code :

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

my $count =()= $machaine =~ m/interface toto(.*)/g;

MAIS je souhaite tout simplement afficher toutes ces lignes entières. Mais je n'arrive pas à les afficher et je cherche la syntaxe.

Code :

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

1
2
3
4
while( $machaine =~ /interface toto.*/g ) {
        $extraction = $chaine_trans =~ /^interface toto(.*)$/ms;
        print "\n".$extraction;
}

Merci beaucoup pour votre aide !
Pouvez-vous m'aider svp

[ggnore]

Salut,

print $1 pour afficher ce que tes parenthèses capturantes ont attrapé.

[devets]

Bonjour et merci pour ton aide

J'ai appliqué le changement
$1 me retourne bien le résultat de ce que les parenthèses capturantes ont attrapé.

Mais ma boucle while tourne à l'infini en me retournant le résultat de ma première occurrence (1 de toto1)

Code :

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

1
2
3
4
 
while( $machaine =~ /interface toto(.*)/ ) {
     print "\n".$1;
}

[dmganges]

Bonjour,

Code :

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

1
2
3
if ( $machaine =~ /interface toto(.*)/ ) {
	print "\n".$1;
}