Discussion :

[nicolasF86]

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 :

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

Apres :

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 :

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.

[Puppet_Master]

Bonjour.

Code perl :

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
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 :

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

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