URL: https://linuxfr.org/forums/programmation-perl/posts/r%C3%A9cup%C3%A9rer-des-captures-multiples Title: Récupérer des captures multiples Authors: Ontologia Date: 2007年04月27日T11:21:45+02:00 Tags: Score: 0 Bonjour, je suis en train d'écrire un petit script m'aidant à générer de la doc J'ai ça : - from_external p:NATIVE_ARRAY[CHARACTER] <- ça me rend : //* Syntaxe,Header : := from_external_copy <p> J'ai écris pour cela le bête code : #!/bin/perl use strict; my $res; while (my $line = ) { if ($line =~ /\s*-([\w\s_:,\[\]]+)<-/) { # C'est une ligne de def de slot $res = 1ドル; $res =~ s/([\w_]+)(\s*:[A-Z_\]\[]+)/<1ドル>/g; print " //* Syntaxe,Header : := $res\n"; £spaces£ £/spaces£} else { print $line; } } Je voudrai produire pour chacune des captures ([\w_]+) (de la ligne $res =~ s/([\w_]+)(\s*:[A-Z_\]\[]+)/<1ドル>/g; ) une ligne du genre // <p> : NATIVE_ARRAY[CHARACTER] < Et qu'il me crache plusieurs lignes s'il y a plusieurs séquences. Donc, en d'autres termes, comment, en perl, peut on récupérer, pour une regexp qui matche une capture en plusieurs endroit de la phrase, la liste des captures et boucler dessus ?

AltStyle によって変換されたページ (->オリジナル) /