aide pour une [regexp]

Bonjour

désolé si je ne post pas au bon endrot mais je ne sais pas trop quel forum utilisé car j'envisage d'utilisé Notepad++ pour modifier mes fichiers...
j'ai plusieurs fichiers dont il faudrait changé le contenu mais je ne maitrise pas les expressions réguliere...j'aurais besoin de votre aide
toutes mes lignes contenant %endtestcase doivent etre entourer par /* */ (delimiteur de debut %endtestcase delimiteur de fin : ; ).............car bien évidemment les paramètres situé entre les parenthèses ne sont pas fixe.
avant :

Citation:

---

blablabla
%endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0);
blablabla
blablablablablabla

---

Apres :

Citation:

---

blablabla
/*%endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0);*/
blablabla
blablablablablabla

---

Et encore mieux et si possible avec ces deux lignes en plus :

Citation:

---

blablabla
/*%endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0);*/
%assertLog(i_errors=,i_warnings=);
%endTestcase(i_assertLog=1);
blablabla
blablablablablabla

---

Merci
Nicolas.

Bonjour.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/bin/perl   use Modern::Perl;   my $base = 'blablabla %endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0); blablabla blablablablablabla';   my $prefix = '/*'; my $sufix = '*/ %assertLog(i_errors=,i_warnings=); %endTestcase(i_assertLog=1);';     $base =~ s{(%endTestcase\([^\)]*\);)}{$prefix . $1 . $sufix}ge;   say $base;

---

Code:

---

1 2 3 4 5 6 7 8

$ perl script.pl blablabla /*%endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0);*/ %assertLog(i_errors=,i_warnings=); %endTestcase(i_assertLog=1); blablabla blablablablablabla

---