Discussion :

[khasanouray]

Bonjour
Je souhaiterai renommer la totalité des fichiers contenus dans un répertoire donné, en leur affectant le même préfixe.
j'ai regardé dans les faq, en trouvant la solution avec la fonction rename, pour un fichier.
j'ai essayé avec la fonction glob qui me permet d'avoir un tableau contenant la totaté des fichiers d'un répertoire, mais une fois mes fichiers renommés comment faire pour les récupérer dans un nouveau répertoire voire dans le répertoire d'origine.
Faut t-il que je crée d'abord un répertoire avec mkdir et que je l'ouvre ensuite en écriture si c'est possible, ce que ne permet pas la fonction opendir,
apparemment.

[Arioch]

Pour renommer des fichiers tout en les laissant au même endroit, je crois que la fonction move( ) fournie avec File::Copy agit comme la commande UNIX mv, à savoir qu'elle va déplacer le fichier d'origine tout en le renommant. Le fichier d'origine disparait donc.

Je te préconise avant le renommage de bien t'assurer que tu ne donnes pas le même nom à plus d'un fichier, ça t'évitera une belle surprise

[Arioch]

En guise de complément à ma réponse, move( ) fait bien le truc, code ci-dessous testé à l'instant sur mon ordi :

Code :

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

1
2
3
use File::Copy;
 
move("titi.txt", "toto.txt") or die();

Fichier titi.txt bien renommé en toto.txt.

[djibril]

je te preconise même de faire une sauvegarde avant de faire cela. Car quand on est pas tres aguerit, on peut avoir de belles surprises

[khasanouray]

Cela marche effectivement pour un fichier, mais je voudrais pouvoir le faire pour tous les fichier d'un répertoire, et ma question avait plutôt trait à la possibilité d'ouvrir en écriture un répertoire qui recevrai la totalité des fichiers renommés.

[Arioch]

Pour créer un répertoire, vois du côté de la fonction mkdir.

Et concernant tes fichiers, le must (et tu l'as fait apparemment) est de les charger dans un tableau.

Donc, dans l'ordre en ce qui te concerne :

- faire un backup de tes fichiers d'origine avant tout.
- charger tes fichiers dans un tableau
- créer ton dossier qui recevra les fichiers renommés et déplacés
- pour chaque fichier, choisir son nouveau nom et utiliser la fonction move de File::Copy.

[djibril]

bon aller, je suis de bon poil, je te donne une procedure.
voici une procedure pour lister tous les fichiers dans un repertoire de manieres recursives

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
21
22
 
#
#Lit un repertoire et retourne dans un tableau tous les fichiers 
#du repertoires et de ses sous repertoires.
sub lister_fichiers {
    my $repertoire = shift;
    opendir (REP, $repertoire) or 
      croak "impossible d'ouvrir le repertoire $repertoire\n";
    my @file_rep = grep { !/^\.\.?$/ } readdir(REP);
    closedir (REP);
 
    my @fichiers = ();
    foreach my $nom (@file_rep) {
        if ( -f "$repertoire/$nom") {
            push (@fichiers, "$repertoire/$nom");  
        }
        elsif ( -d "$repertoire/$nom") {
            push (@fichiers, &lister_fichiers("$repertoire/$nom"));
        }
    }
    return @fichiers;
}

pour l'appeler :

Code :

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

my @mes_fichiers = lister_fichiers("nom_de_ton_repertoire");

Ensuite tu peux faire ceci :

Code :

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

1
2
3
4
5
6
7
my $new_repertoire = "nouveau_repertoire";
mkdir ($new_repertoire, 0777);
#et faire 
foreach my $file (@mes_fichiers) {
  $nouveau_fichier = "$new_repertoire/$file"."ton_prefixe";
  rename($file,$nouveau_fichier);
}

voilà, c'est fait à la va vite, pas tester (mais je sais que la procedure est ok)

[Arioch]

Et rajouter un die( ) comme alternative au mkdir ($new_repertoire, 0777); fourni par djibril parce que si, pour une raison ou une autre, tu n'as les droits pour créer un dossier à l'endroit où tu le souhaites, ton rename risque de partir en sucette.

[djibril]

Et rajouter un die( ) comme alternative au mkdir ($new_repertoire, 0777); fourni par djibril parce que si, pour une raison ou une autre, tu n'as les droits pour créer un dossier à l'endroit où tu le souhaites, ton rename risque de partir en sucette.

[Arioch]

Faut t-il que je crée d'abord un répertoire avec mkdir et que je l'ouvre ensuite en écriture si c'est possible, ce que ne permet pas la fonction opendir,apparemment.

Je n'avais pas vu cette question là.

opendir est une des possibilités que t'offre Perl pour lister le contenu d'un répertoire.

mkdir te permet de créer un répertoire.

Mais ensuite, pour écrire dans le répertoire que tu viens de créer, y a pas de notion d'ouvrir un répertoire en mode mise à jour, ça c'est bon pour les fichiers mais pas les répertoires.

Une fois ton répertoire créé, avec l'assurance via ton programme qu'il a bien été créé, tu peux déplacer tes fichiers avec la fonction rename indiquée par Djibril ou ma fonction move que je proposais et qui est issue du package File::Copy (présent dans toutes les bonnes distributions Perl)

[khasanouray]

Merci Pour toutes ces infos, je pense que je devrais m'en sortir avec tout cela.
Khasanouray.

[khasanouray]

C'est bon ça marche !

[lestatbzh]

Bonjour a tous

je cherchais le moyen de copier le contenu d'un rep dans un autre, sachant que les fichiers peuvent avoir différentes extensions.
Si j'ai bien compris ton code, je peux presque m'en servir tel quel. Il faut juste que je "copy" au lieu de "move", c'est ca ?

bon aller, je suis de bon poil, je te donne une procedure.
voici une procedure pour lister tous les fichiers dans un repertoire de manieres recursives

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
21
22
 
#
#Lit un repertoire et retourne dans un tableau tous les fichiers 
#du repertoires et de ses sous repertoires.
sub lister_fichiers {
    my $repertoire = shift;
    opendir (REP, $repertoire) or 
      croak "impossible d'ouvrir le repertoire $repertoire\n";
    my @file_rep = grep { !/^\.\.?$/ } readdir(REP);
    closedir (REP);
 
    my @fichiers = ();
    foreach my $nom (@file_rep) {
        if ( -f "$repertoire/$nom") {
            push (@fichiers, "$repertoire/$nom");  
        }
        elsif ( -d "$repertoire/$nom") {
            push (@fichiers, &lister_fichiers("$repertoire/$nom"));
        }
    }
    return @fichiers;
}

pour l'appeler :

Code :

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

my @mes_fichiers = lister_fichiers("nom_de_ton_repertoire");

Ensuite tu peux faire ceci :

Code :

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

1
2
3
4
5
6
7
my $new_repertoire = "nouveau_repertoire";
mkdir ($new_repertoire, 0777);
#et faire 
foreach my $file (@mes_fichiers) {
  $nouveau_fichier = "$new_repertoire/$file"."ton_prefixe";
  rename($file,$nouveau_fichier);
}

voilà, c'est fait à la va vite, pas tester (mais je sais que la procedure est ok)

[djibril]

oui c'est ça, tu fais un

Code :

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

use File::Copy;

en debut de script, puis utilise copy eu lieu de rename

[lestatbzh]

merci, mais j'ai pas reussi en faisant comme tu dis

j'ai trouvé ce code là dans ce thread, et ca marche merci choubiroute

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
21
22
23
24
25
26
27
28
29
30
31
 
sub Copier_Repertoire  
 {  
  my ( $dir_source, $dir_dest ) = @_;
    # On teste l'existance des répertoires
    die "Le répertoire source $dir_source n'existe pas\n" if ( ! -e $dir_source );
    die "Le répertoire destination $dir_dest existe déja\n" if ( -e $dir_dest );
 
    # On crée le répertoire destination
    mkdir ( $dir_dest, 0777 ) or die "Impossible de créer le répertoire $dir_dest : $!\n";
 
    # On ouvre le répertoire source
    opendir( DIR, $dir_source ) || die "Impossible d'ouvrir le répertoire $dir_source : $!\n";
 
    # On récupére la liste des éléments qu'il contient
    my @elmts = grep !/(?:^\.$)|(?:^\.\.$)/, readdir DIR;
    closedir DIR;
 
    # On copie
    foreach ( @elmts )
     {
      if ( -d "$dir_source/$_" )
       {
        Copier_Repertoire( "$dir_source/$_", "$dir_dest/$_" );
       }
      else
       {
        copy ( "$dir_source/$_", "$dir_dest/$_" )  || die "Impossible de créer le fichier $dir_dest/$_ : $!\n";
       }
     }
  }