30-11-2011
perl, chercher remplacer des chaines de façon récursif avec utilisation des expressions régulières
perl -pi -w -e ‘s/regex/replace/g;’ `find ./ -name ‘*.php’`
Les méta-caractères sont à échapper avec \
Liste
^
$
.
*
+
?
|
(
)
[
]
{
}
\
http://www.cs.tut.fi/~jkorpela/perl/regexp.html
Mon exemple pour supprimer du code malicieux détecté ce matin !
Attention faites des tests/sauvegardes avant toute modif, je ne suis pas responsable de vos erreurs de manips…
perl -pi -w -e 's/global \$sessdt_o. if\(!\$sessdt_o\).*\)\)\);exit;\} \}//g;' `find ./ -name '*.php'`
Perl search replace recursive folder and regex
-perl
>> Voir tous les tutoriels catégories: perl