<div dir="ltr">Bonjour,<br><br>Côté perl il y a par exemple <a href="https://metacpan.org/pod/Regexp::Common::balanced">Regexp::Common::balanced</a> mais il te faudrait lire tout ton fichier en mémoire et jouer sur l'option de regex 's' pour gérer les retours à la ligne pouvant être inclus entre parenthèses.<div><br>print pack'b*',join'',map{$_.($_+0?'010':'100')}unpack('b*',pack'w*',7376,16,193516616,0,1508,0,11289860)=~/...../g<br><br></div></div><br clear="all"><div><div dir="ltr" class="gmail_signature"><div dir="ltr"><blockquote style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><font size="1"><a href="http://codepad.org/Lb2tGEjj" target="_blank">print pack'b*',join'',map{$_.($_+0?'010':'100')}unpack('b*',pack'w*',7376,16,193516616,0,1508,0,11289860)=~/...../g</a></font></blockquote></div></div></div><br><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Le dim. 11 juin 2023 à 16:53, Sylvain Lhullier <<a href="mailto:sylvain@lhullier.org">sylvain@lhullier.org</a>> a écrit :<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Philippe Delavalade a écrit :<br>
> J'ai un fichier contenant plus de mille lignes, chaque ligne étant composée<br>
> de formules faisant intervenir pas mal de parenthèses du genre<br>
> (...(...(...)...)...(...)...(...(...(...)...(...)...)...)...)...(...)<br>
> Y aurait-il un moyen simple de trouver la prenthèse fermante corespondant à<br>
> une parenthèse ouvrante donnée ? Le but est de transformer la quantité entre parenthèses.<br>
<br>
Bonjour,<br>
<br>
Je ne sais pas si ta question concerne Perl, mais posée comme ça, j'utiliserais vi.<br>
<br>
Avec vi (ou vim), la parenthèse correspondante est indiquée en couleur si elle est à l'écran.<br>
<br>
Mais surtout, il suffit en mode commande d'utiliser %<br>
pour passer la la parenthèse ouvrante à la fermante et inversement.<br>
<br>
En suite, comme toute commande de déplacement, on peut l'utiliser pour faire du copier/coller.<br>
En se mettant sur la parenthèse ouvrante, on tape :<br>
y% pour copier ou<br>
d% pour couper<br>
(il existe aussi c% pour remplacer en direct : couper + passage en mode insersion).<br>
Après cela, on déplace le curseur, puis avec la commande p ou P on colle.<br>
<br>
Voila, la réponse n'a rien à voir avec Perl, mais c'est comme cela que je ferais :-)<br>
<br>
Librement,<br>
<br>
-- <br>
Sylvain Lhullier<br>
Formation Perl <a href="https://formation-perl.fr/" rel="noreferrer" target="_blank">https://formation-perl.fr/</a><br>
Vice-président des Mongueurs de Perl <a href="http://mongueurs.net/" rel="noreferrer" target="_blank">http://mongueurs.net/</a><br>
_______________________________________________<br>
Perl mailing list<br>
<a href="mailto:Perl@mongueurs.net" target="_blank">Perl@mongueurs.net</a><br>
<a href="http://listes.mongueurs.net/mailman/listinfo/perl" rel="noreferrer" target="_blank">http://listes.mongueurs.net/mailman/listinfo/perl</a><br>
Attention, les archives sont publiques<br>
</blockquote></div>