Oui. Désolé, je n'avais pas bien compris la question. Un autre message de l'enfilade vous fournit la bonne réponse.
-- Paul Gaborit - <http://www.enstimac.fr/~gaborit/> Perl en français - <http://www.enstimac.fr/Perl/>
dcd
Après la regexp : $ligne =~ s/trucs+(wds+)?(wds+)?bidule/tructbidule/ ; vous pouvez utiliser la variable $#- Elle contient 0, 1 ou 2 suivant le nombre de correspondances et -1 si la ligne ne correspond pas au motif.
Merci, c'est ce qu'il me fallait !
dav'
Après la regexp :
$ligne =~ s/trucs+(wds+)?(wds+)?bidule/tructbidule/ ;
vous pouvez utiliser la variable $#-
Elle contient 0, 1 ou 2 suivant le nombre de correspondances et
-1 si la ligne ne correspond pas au motif.
Après la regexp : $ligne =~ s/trucs+(wds+)?(wds+)?bidule/tructbidule/ ; vous pouvez utiliser la variable $#- Elle contient 0, 1 ou 2 suivant le nombre de correspondances et -1 si la ligne ne correspond pas au motif.