Discussion :

[floanne]

Bonjour,

je voudrai supprimer tous les commentaire comptenat la suite de lettre "EXEC SQL"...

Voici mon code :

Code :

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

$txt =~ s/(\/\*)(([^\*E]*|\*[^\/]|E[^X]|EX[^E]|EXE[^C]|EXEC[^ ]EXEC [^S]|EXEC S[^Q]|EXEC SQ[^L])*EXEC SQL)*(\/)//igsm;

Il semble qu'il ne matche rien du tout...

Merci de votre aide,
++floanne.

[djibril]

montre nous ton fichier avec un exemple de ligne à supprimer.
Ce sera plus clair.

[floanne]

Ca ressemble à ça :

du code c

/* du code c

EXEC SQL ma requete
la suite de ma requete ;

encore du code c */

Sachant qu'il peut y avoir tous les cas de figure (plusieurs reqauetes, pas de code c...)
Le critère principal est donc que le commentaire contienne une fois au moins la chaine "EXEC SQL"...

Merci,
++floanne.

[djibril]

juste pour te guider, comment t'y prends tu?
tu mets ton script dans une variable?
Arrive tu tout simplement à supprimer le contenu entier d'une varible (c''est à dire supprimer le contenu entre /* et */ )?

essaye déjà ça et montre nous ton script

[floanne]

$txt contient tout le code d'un fichier...

Sinon oui j'arrive à virer tous les commentaire avec ce code :

Code :

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

$txt =~ s/(\/\*)([^\*]*|\*[^\/])*(\*+\/)//;

++floanne.

[djibril]

je vais te guider.
Voici une expression regulière beaucoup plus propre qui supprime tous les commentaires en C d'un code

Code :

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

1
2
3
4
5
6
7
8
9
my $script = "cette phrase (hello!) !\n/* commentaire \n commentaire\n */\n script script\n script\ncette phrase (hello!) !\n/* commentaire \n commentaire\n */\n script script\n script\n";
print $script;
$script =~ s{
            /\*  # Debut du commentaire C
            .+?  # => commentaire en C
            \*/  # Fin du commentaire C
            }
            {}msxg;
print $script;