Discussion :

[ayoubnour]

Bonjour,

je souhaite pouvoir comparer dans une ligne le nombre de parenthèses ouvrantes et le nombre de parenthèses fermantes, et afficher la ligne si les deux nombres sont différents.
existe-t-il une fonction qui permette de numérer dans une ligne l'un des éléments qui la composent ?

merci

[Philou67430]

Une expression régulière permet de compter les occurrences d'un motif. Dans ton cas, il faudrait alors utiliser deux expressions.
Ou alors, boucler sur les paranthèses et compter les ouvrantes et fermantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$a="(toto(tutu(titi)), yoyo";
 
$o = () = $a =~ m{(\()}g; # Compter les parenthèses ouvrantes
$f = () = $a =~ m{(\))}g; # Compter les parenthèses fermantes
print "o=$o, f=$f\n";
 
$o = $f = 0;
while ($a =~ m{(\(|\))}g) {
  if ($1 eq "(") {
    $o++;
  }
  else {
    $f++;
  }
}
print "o=$o, f=$f\n";

[ayoubnour]

Merci pour l'info, ça fonctionne très bien.

[gorgonite]

pourquoi ne pas faire un split et compter le nombre d'élements renvoyés moins un ?

[Philou67430]

Mmm... et alors ? ça donnera le nombre de parenthèse total, pas s'il y a autant d'ouvrante que de fermante ...

[gorgonite]

Mmm... et alors ? ça donnera le nombre de parenthèse total, pas s'il y a autant d'ouvrante que de fermante ...

split peut prendre une regexp en argument... mais en fait, ce ne sera pas vraiment plus intéressant. on sera obliger de faire également le while

[Philou67430]

En fait, en utilisant perl 5.10 et les ajouts expérimentaux des expressions régulières, il est possible de réaliser ce travail dans une seule expression régulière :

Code perl :

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

1
2
3
4
$a="(toto(tutu(titi)), yoyo";
$p = 0;
() = $a =~ m/\( (?{ $p++ }) | \) (?{ $p-- })/gx, "\n";
print "p=$p\n";

p contient la différence entre le nombre de parenthèses ouvertes et le nombre de parenthèses fermées.