Bonjour
Je travaille en latex, j'ai un fichier .tex dans lequel j'aimerais supprimer toutes les occurences d'une certaine commande (avec un argument) que j'ai créé en la remplaçant par son argument.
Concrètement la commande est :
\newcommand{\corr}[1]{\textbf{#1}}
Elle m'a servi à mettre en gras certaines parties du texte (pour les corriger plus tard) tout en les différenciant dans le .tex des parties qui doivent rester en gras dans le doc final.
 
je pensais m'en sortir avec du Perl pour nettoyer tout ça...
Mais problème : l'argument peut contenir n'importe quel type de caractères y compris des paires d'accolades {} donc je n'arrive pas à le faire continuer jusqu'à la "}" qui matche la première "{" suivant "\corr".
 
Un exemple :
S'il rencontre la chaine "ceci est un exemple \corr{à corriger mais \textbf{cela} doit rester en gras}" je veux qu'il me donne "ceci est un exemple à corriger mais \textbf{cela} doit rester en gras".
 
 
Merci d'avance !
 
(en attendant j'ai surement plus vite fait de les enlever tous à la main dans mon fichier mais cette solution pourrait me reservir plus tard!)
 
 
Edit : en fait mon problème vient plutot de la situation quand il y a plusieurs occurences de cette même chaîne, j'arrive pas à les prendre une à une  

Déjà, tu peux faire un \renewcommand{\corr}[1]{#1} en LaTeX pour ne plus être embêté par ta commande, non?
Pour le reste, je vais voir s'il y a une solution simple en Perl, mais j'en doute un peu, les trucs équilibrés dans les regexp, c'est pas si simple.
A+,

tout à fait en ce qui concerne l'allure du pdf  
mais comme ce .tex va être amené à circuler auprès de collaborateurs et uploadé sur le net (arxiv), je préfère autant qu'il soit "propre" et qu'on voit pas toutes les bidouilles internes.
 
En tout cas, en fouillant la doc de perlre (http://perldoc.perl.org/perlre.html#Capture-groups) j'ai fini par trouver le morceau de code magique :
 
my $re = qr{ ( \\corr ( \{ ( (?: (?> [^{}]+ ) | (?2) )* ) \} ) ) }x;    
s/$re/$3/;
 
j'ai mis tout ça dans une boucle while qui parcourt mon fichier, quelques conditions et c'est impec!!
2 lignes... Perl superior  
 

Oui, ça marche bien:

#!/usr/local/bin/perl
use strict;
use warnings;
 
my $_ = 'ceci est un \textbf{exemple \corr{a corriger \corr{mais \textbf{ce\corr{la}} doit rester} en gras} fin de} l exemple';
do 1 while (s/(\\corr(\{((?:(?>[^{}]+)|(?2))*)\}))/$3/g);
print "$_\n";

note le $3 plutôt que \3 à la sed dans l'expression de substitution.

 
Je regardais du coté du module Text::Balanced, mais sa doc est loin d'être claire.
A+,

Noter aussi que la présence d'un { ou } escapé (\{ ou \}) fait foirer l'expression régulière.
A+,

Bonjour je bloque sur un problème très proche : Avez-vous expérimenté Text::Balanced ?  
            $file_contents = <$file>;
            # Tableaux pour stocker les commandes \newcommand et \tikzset
            @newcommands = ();
            @tikzsets = ();
# Premier balayage pour extraire les commandes \newcommand et \tikzset
            # while ($file_contents =~ m/(?:\\newcommand|\\renewcommand)\\[^{}]*\{(?:[^{}]+|(.*))*\}|\\tikzset\{[^{}]+\}/sg)  {
            # do 1 while (s/(\\corr(\{((??>[^{}]+)|(?2))*)\}))/$3/g);
            # while ($file_contents =~ m/(?:\\newcommand|\\renewcommand)\\[^{}]*\{(??>[^{}]+)*)\}|\\tikzset\{[^{}]+\}/sg)  {
      while ($file_contents =~ m/(?:\\newcommand|\\renewcommand)\\[^{}]*\{(??>[^{}]+)*)\}/sg)  {
                $content = $&;
print $content ;  
 
                if ($content =~ /newcommand/) {
                    push @newcommands, $content ;
 print "\n -----------   commande -------- \n" . $content ;  
                }
                elsif ($content =~ /tikzset/) {
                    push @tikzsets, $content ;
# print "\n -----------   Tikzset -------- \n" . $content ;  
                }
            }
Merci d'avance pour le coup de pouce  
 

Merci de créer un nouveau topic dédié à ton pb plutôt que déterrer un vieux topic.

et de mettre le code entre balises et d'expliquer un minimum, car les Regex c'est très lisible généralement...

Ok J'ai un script qui fonctionne. J'ouvre un nouveau topic. Ce sujet me semble peu traité autant laisser une trace accessible. La suite est là : https://forum.hardware.fr/hfr/Progr [...] 8478_1.htm