Discussion :

[fanch35]

Bonjour,

Je m'adresse à vous car je recherche un moyen de remplacer les espaces dans les répertoires et fichiers par des _
Exemple :
Mon dossier -> Mon_dossier
Mon fichier.txt -> Mon_fichier.txt

J'ai trouvé la fonction rename() mais il faut mettre le nom complet...
Merci de votre aide

[Philou67430]

Sous quel OS lances-tu ton script, et sous quelle forme : un répertoire racine (le répertoire courant par exemple) doit être parcouru dans toute l'arborescence, ou bien une liste de fichier/répertoires fournis en paramètre de la ligne de commande, ... ?

Ces questions peuvent influencer la manière de répondre au besoin.

Cela dit, pour des problèmes de portabilité, il est plutôt conseillé d'utiliser la fonction move du module File::Copy

[fanch35]

je lance mon script sous windows (je sais pas bien mais ubuntu fonctionne mal sur ma machine) et je dois parcourir toute l'arborescence de mon répertoire courant

[Philou67430]

Pour commencer, un exemple en uniligne qui fonctionne sous Linux et Windows/cygwin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -MFile::Copy -E 'foreach (@ARGV) { $new = s/\s/_/gr; move $_, $new; }' *

Il traite tous les fichiers et répertoires du répertoire courant.
Tu utilises Strawburry perl ou Activeperl (je n'en ai plus aucun des deux installé sur le PC) ?

Pour descendre dans l'arborescence, tu peux utiliser le module File::Find.
Je vais voir ça dans quelques minutes.

[fanch35]

J'utilise ActivePerl.
Par contre désolé je débute vraiment mais ce que tu me met, je le met dans mon code ?

[Philou67430]

C'est une uniligne, tu l'utilises directement dans une fenêtre de commande. Par contre, je te conseille de faire une sauvegarde de ton arborescence avant.
Je suis encore en train de traiter le cas de la sous-arborescence avec File::Find.