afficher les résultats d'une regex

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:

---

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:

---

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

Salut,

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

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:

---

1 2 3 4

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

---

Bonjour,

Code:

---

1 2 3

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

---

:D