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.
Configuration: Windows XP
Firefox 2.0.0.20

3 réponses

  1. jipicy Messages postés 40842 Date d'inscription   Statut Modérateur Dernière intervention   4 898
     
    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
  2. 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
    1. 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
  3. Le manu
     
    Bonjour,
    Pour des infos completes sur les fichiers et perl :
    http://perl.developpez.com/sources/?page=section1
    0