Discussion :

[quefets]

Bonjour,
J'ai un répertoire père qui contient pleins de répertoires fils.
Je souhaite faire une boucle pour renommer tous les réperoires fils.
Tous les repertoires fils contiennent des fichiers et je souhaite renommer tous les fichiers.
rmque : tous les repertoires sont nommés sur le meme format, pareil pour les fichiers.

Exemple :
-repertoire pere: uds
repertoire fils: uds.1 uds.2 uds.3 uds.4
Je souhaite obtenir uds1 uds2 uds3 uds4 ..............

- les reperoires fils contiennent des fichiers qui ont pour nom u_0_ezf_zez.usb u_11_kjdnazd.usb u_2_zzenfz.usb je souhaite obtenir u_ezf_zez.usb u_kjdnazd.usb u_zzenfz.usb
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
#!/usr/bin/perl
use strict;
 
#je suis dans le reperoitre pere uds 
#je n'arrive pas lui faire boucler pour passer de repertoire en repertoire, je suis donc dansle premier repertoire je le renomme
 for my $rep
  {
     (my $nom, my $chiffre) = split ('.');
      rename ("$rep","$nom$chiffre");  
 
       while (<$input_fh>)
         {
	  chomp;
          #mes fichiers sont de la forme u_1_bla_blr_.usb
	  (my $un, my $deux, my$trois, my$quatre, my$cinq) = split ('_');
          #je ne supprime que le premier '_' je garde les autres           
           rename("$input_fh","$un$deux_$trois_$quatre_$cinq");
         }

Merci bcp pour votre aide.

[iblis]

Fais plutôt une récursion (et utilise opendir et readdir pour ouvrir et lire tes répertoires).

Ce coup-là je ne te mets pas de code mais tu peux t'inspirer de ce script (un vieux truc pas retouché depuis longtemps mais l'idée est là).