[Perl] Problème de parenthèses

[Marc Chantreux]

salut,

personnellement, j'aurais tendance à déplacer le curseur avec
une boucle //cg. pour obtenir

(...(222(...)222)...(222)...(222(...(...)...(...)...)222)...)...(...)

depuis l'exemple, j'ai écris:

perl -nE'
	pos $_ =0;
	while (not /\G$/cg) {
		if (/\G\(/cg)     { ++$level; print $&; next }
		if (/\G\)/cg)     { --$level; print $&; next }
		/\G[^()]+/cg;
		if ( $level == 2) { print $& =~ s/./2/rg }
		else              { print $&             }
	}
' <<%
(...(...(...)...)...(...)...(...(...(...)...(...)...)...)...)...(...)

cordialement,
marc