totolle a écrit :
Voila le script que j'ai fait, pour l'instant. Il me manque toute la partie de recherche des expressions et leur remplacement...
Maintenant j'ai vraiment besoin d'aide... HELP ME... HELP ME
...
|
Je pense qu'il y a moyen de le faire en une ligne...
find -type f -name '*.ads' | xargs perl -i.bak -pe 's/(.*? : constant := )\\((.*?''LAST)( \\+ .*?)\\)/$1(integer($2)$3)/g' |
En gros, le find cherche les fichiers concernés, xargs demande à perl de traiter ces fichiers un par un, l'option -i.bak de perl demande de modifier directement les fichiers et d'en faire une sauvegarde avec le suffixe .bak, l'option -p permet de restituer toutes les lignes des fichiers traités, l'option -e demande d'exécuter le code qui suit entre guillemets, le code entre guillemets ne contenant qu'une expression rationnelle pour remplacer le motif qui nous intéresse par la forme voulue...
Maintenant, il faut voir si l'expression régulière correspond bien à ce que tu veux...