Perl > remplacer texte dans fichiers, recursivement

Perl > remplacer texte dans fichiers, recursivement - Perl - Programmation

Marsh Posté le 23-04-2010 à 17:05:44    

Bonjour, je cherche à Remplacer du texte dans des fichiers recursivement en perl
 
à la base je sais executer cette expression
perl -pi -w -e 's/admin.css/\/nouvellecss.css/g;' *.html
 
Mais comment parcourir les répertoire inférieurs afin de remplacer le texte ? merci  :jap:  


---------------
Photos Panoramiques Montagnes Haute Savoie
Reply

Marsh Posté le 23-04-2010 à 17:05:44   

Reply

Marsh Posté le 23-04-2010 à 19:52:52    

Tu sembles être sous unix/linux.
La commande

find . -name '*.html' -print0 | xargs -0 perl -pi -w -e 's/oldstring/newstring/g'

devrait coller à priori, ou tu remplaces oldstring et newstring par leurs valeurs pour ton cas précis.

 

Si tu tiens à faire ça 100% en perl, il faut je pense utiliser le module File::Find.

 

A+,


Message édité par gilou le 23-04-2010 à 19:53:37

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 23-04-2010 à 20:24:02    

superbe je te remercie bcp ;)


---------------
Photos Panoramiques Montagnes Haute Savoie
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed