Avec le code suivant:

et la chaine suivante "abcX123XxyzX", j'estime que je devrait obtenir:
abc
123
xyz
Mais en fait je n'obtient que "xyz". Le sous pattern délimité par des parenthèses simples (i.e [^X]*) devrait être matché plusieurs fois dans mon exemple. Je pense que c'est le cas, mais pour autant j'ai l'impression que le résultat de ces premiers matchs est écrasé.
 
Feature ou bug?

Et si tu retires le ?: ?? parce que normalement, il empèche la capture, ce qui expliquerait que ton print ne retourne rien pour les précédents.
 
Mais je ne suis pas un expert en Perl...

print foreach(/(.*?)X/g);  

Avec /(?[^X]*)X)+/, le moteur va rechercher la plus grande chaîne correspondant au motif, donc dans ce cas: abcX123XxyzX, c-à-d n'importe quelle séquence ([^X]*)X une fois ou plus (à cause du dernier plus). La chaîne entière sera donc détectée, mais le contenu de $1 sera écrasée pour chaque séquence ([^X]*)X puisqu'elle est incluse dans la parenthèse soumise à +. Donc seule la dernière correspondance de ([^X]*) sera conservée: xyz.
 
Pour avoir ce que tu veux, fais:
 
/([^X]*)X/g
 
Sans oublier le commutateur g pour que la recherche s'effectue jusqu'à plus soif...

Chiotte de smileys!!! (Désolé, ça me sâoule d'éditer le post précédent! )

Okay merci à vous; c'est donc impossible à faire par cette approche.
Mon but était de matcher directement une gros pattern de ce genre:

en stockant toutes les captures dans la tableau retourné.
Mais vu que la capture ne marche pas comme je le pensais, je vais procéder en deux phases:
1/ capture de la chaine entre les délimiteurs
2/ split sur le séparateur
 
 

Ou alors:

avec "DEBUT" et "FIN" comme délimiteurs de début et de fin...
 
 
 
Edit: oubli du $.

lol, schnappsmann

Si tu veux juste imprimer l'array des matches, ceci colle:

s/^DEBUT(.*)XFIN$/$1/; print join "\n", split /X/;

 
Par contre, si tu veux récupérer les matches dans un array pour réutilisation, soit tu fais comme précédemment, en récupérant le résultat du split:

s/^DEBUT(.*)XFIN$/$1/;
my @matches = split /X/;

soit tu fais directement joujou avec les sous-expressions regulieres pour montrer ton niveau de gurutification perlière:

my @matches;
m/^DEBUT(?:([^X]*)X(?{push @matches, $^N}))*FIN$/;

 
A+,