Script perl pour renommer des fichiers

machin -  
 Le manu -
Bonjour,
je voudrais savoir comment est il possible de renommer une liste de fichiers contenue dans un répertoire unix.
ex: j'ai un repertoire qui se nomme rbFT et qui contient FT_001_A.doc .... jusqu'à FT_804_A.doc en FT_001.doc...FT_804.doc.
j'aimerai taper cela en un simple script pour qu'il puisse faire ce travail en l'executant sous perl si possible.
Un grand merci d'avance.
A voir également:

3 réponses

jipicy Messages postés 41342 Statut Modérateur 4 896
 
Salut,

Une solution en shell "bash" :
[tmpfs]$ ls -1
FT_001_A.doc
FT_002_A.doc
FT_003_A.doc
FT_004_A.doc
FT_005_A.doc
FT_006_A.doc
FT_007_A.doc
FT_008_A.doc
FT_009_A.doc
[tmpfs]$ for fic in *;do mv ${fic} ${fic/_A/};done
[tmpfs]$ ls -1
FT_001.doc
FT_002.doc
FT_003.doc
FT_004.doc
FT_005.doc
FT_006.doc
FT_007.doc
FT_008.doc
FT_009.doc
[tmpfs]$
;-))
1
x11r6 Messages postés 365 Statut Membre 59
 
http://tips.webdesign10.com/how-to-bulk-rename-files-in-linux-in-the-terminal

c'est là :)
0
machin
 
merci pour le lien mais ce n'est pas ce que j'attendais.
j'aimerai avoir le script entier.
"rename" ne fonctionne pas.
j'ai fait un truc comme
#!usr/bin/perl -w

user strict;

which (<>)
{
s/_A/" ";
}

ensuite sur mon invite de commande je tape le nom de mon script mais je ne peux l'appliquer pour le dossier contenant la fameuse liste de fichiers, donc je suis bloquer pour renommer ces fichiers.
merci pour l'aide.
0
Le manu
 
Bonjour,
Pour des infos completes sur les fichiers et perl :
http://perl.developpez.com/sources/?page=section1
0