Discussion :

[noooobie]

Bonjour,

Le truc me semble tout c*n mais je n'y arrive pas. J'ai cherché pourtant, sans succès. Je débute.
Je veux rechercher dans un scalaire un motif avec une expression régulière, et pusher toutes les occurrences trouvées dans un tableau.
Mais je ne trouve pas la condition de sortie "fin de chaine". Je pensais à un unless (fin de chaine) {...}
Je me débrouille en trichant avec un for et une itération bien supérieure à ce que je suis susceptible de trouver et en non-doublonnant les entrées.

Ca donne ça (en admettant qu'on puisse en trouver 5 au max par exemple) :
for $i (1..10){
$phrase =~ /\w*le\w*/;
$mot_trouve = $&;
$phrase =~ s/$mot_trouve//;
push @tous, $mot_trouve unless ($mot_trouve ~~ @tous);
}

Merci.

[Lolo78]

Je ne peux rien tester pour l'instant, mais essaie avec un whileet l'option g des expressions régulières. Il y a des exemples dans la doc.

Un truc dans ce genre devrait marcher à peu près:

Code :

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

1
2
3
while ( $phrase =~ /(\w*le\w*)/g  ){
    print "$1\n";
}

mais il est tout-à-fait possible qu'il y ait une petite bêtise ici ou là. J'espère en tous cas que ça te mettra sur la bonne voie.

[noooobie]

Mais oui bien sûr...
L'option g... pourtant je connaissais. Quel âne.

Ça marche nickel. (Et une seule ligne suffit ensuite.)

Grand merci.
Résolu donc.