Discussion :

[[Hugo]]

Bonjour,

Je crois que mon problème est plutôt un problème de Perl... Dans un gros paquet de fichiers, j'ai des lignes de ce genre :

Code :

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

1
2
3
<?php include"../../menus/entete2.php";
entete('Glossaire et notations');
?>

et je voudrais les substituer par :

Code :

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

1
2
3
<?php include"../../menus/mac_entete.php";
entete('Glossaire et notations',2);
?>

Pour le moment, j'ai la ligne suivante :

Code :

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

find  ./ -name \*php -exec perl -p -i.bak -e's/include"\.\.\/\.\.\/menus\/entete2\.php";\s/1/gm' {} \;

et qui substitue bien les choses comme suit :

Code :

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

1
2
<?php 1entete('Glossaire et notations',2);
?>

Mais dès que j'écris quelque chose comme :

Code :

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

find  ./ -name \*php -exec perl -p -i.bak -e's/include"\.\.\/\.\.\/menus\/entete2\.php";\sentete/1/gm' {} \;

Plus rien ne se passe... je gage que mes problèmes sont liés au saut de ligne, mais je ne vois vraiment pas comment résoudre ce problème pour que je puisse substituer les deux lignes d'un coup... si qqn a des suggestions ?

Merci beaucoup !!

Hugo


Oups : sorry, j'ai posté dans le mauvais forum !!!!!!! Si un admin peut me déplacer...

[CKLN00]

un saut de ligne en perl s'écrit \n cela pourras p-e résoudre ton problème ...(si c'est un fichier windows essaye \n\r plus tot (ou \r\n je sais jamais :s !!))

[[Hugo]]

Salut,

merci de ta suggestion !!
Mais le \s contient \r \n \t et \f... et ça veut pas

Hugo

[CKLN00]

exacte j'avais pas vu le \s !!
mais question à quoi sert ce bout de code:

Code :

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

 {}

désoler je suis mauvais en utilisation de Perl sur une ligne je connais mal :s

[[Hugo]]

sincèrement, je ne me rappelle plus... je ne sais pas si c'est du perl ou bien un truc à ajouter pour le bash ? ce qui a de sûr, c'est que ça n'intervient pas dans la syntaxe des ereg... pour le reste ?

Sinon, on est venu à bout du problème en trois ereg que voici, pour les curieux :

Code :

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

1
2
3
4
5
6
7
 
1) met tout sur une ligne
find  ./ -name \*php -exec perl -p -i.bak -e's/include"\.\.\/\.\.\/\.\.\/liste\/entete3\.php";\s/include"\.\.\/\.\.\/\.\.\/liste\/entete3\.php";/gm' {} \;
2) fait la correction
find  ./ -name \*php -exec perl -p -i.bak -e's/include"\.\.\/\.\.\/\.\.\/liste\/entete3\.php";entete\((.*)\);/include"\.\.\/\.\.\/\.\.\/liste\/inc_entete\.php";entete\($1,3\);/g' {} \;
3) rétablir le saut de ligne
find  ./ -name \*php -exec perl -p -i.bak -e's/include"\.\.\/\.\.\/\.\.\/liste\/inc_entete\.php";entete\((.*),3\);/include"\.\.\/\.\.\/\.\.\/liste\/inc_entete\.php";\nentete\($1,3\);/g' {} \;

Pas hyper satisfaisant de le faire en trois coups, mais ça marche...

Hugo

[Jedai]

En une seule regexp :

Code :

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

1
2
s{include \Q"../../../liste/entete3.php";\E (\s*) entete\((.*)\);}
 {include"../../../liste/inc_entete.php";${1}entete($2, 3);}xgms

(attention, si tu l'utilise dans un uniligne, n'oublie pas de rajouter l'argument -0777 pour que Perl lise les fichiers entiers)

--
Jedaï

[[Hugo]]

Salut Jedai,

Merci beaucoup !!

Hugo