Discussion :

[ayoubnour]

bonjour,

je souhaite réunir dans un seul répertoire les fichiers de plusieurs répertoires.
pour cela j'ai créé un tableau contenant tous les fichiers et je voudrai tous les déplacer dans un répertoire que j'ai créé.
Existe t-il une fonction qui permette cela ?

[djibril]

Code :

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

1
2
3
4
5
use File::Copy;
my @Fichier = ('fichier1', 'fichier2');
foreach ( @Fichier ) {
  move($_, '/path/REPERTOIRE');
}

[gorgonite]

@djibril> il manquerait pas aussi un exemple pour récupérer la liste des fichiers contenus dans un répertoire ?

avec un code de ce genre :

Code :

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

1
2
3
4
 
opendir(DIR, $some_dir);
@files = readdir(DIR);
closedir DIR;

et si jamais il y a des sous-répertoires...

Code :

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

1
2
3
4
5
6
7
8
 
use File::Find;
 
sub wanted {
# ...
}
 
finddepth(\&wanted, @directories_to_search);

[djibril]

Vu que dans son tableau, il avait déjà tous les fichiers, j'ai pas trouvé utile de devoir parcourir les répertoires (récursivement ou non).
Mais si c'était le cas, ton code est également bon.

A noter que dans ton @files, il y aura juste les nom des fichiers et non les chemins absolus vers ces fichiers.

Dans les sources, je donne un exemple de code permettant de parcourir un répertoire récursivement en utilisant opendir.

[gorgonite]

Vu que dans son tableau, il avait déjà tous les fichiers, j'ai pas trouvé utile de devoir parcourir les répertoires (récursivement ou non).
Mais si c'était le cas, ton code est également bon.

arf j'ai lu trop vite

A noter que dans ton @files, il y aura juste les nom des fichiers et non les chemins absolus vers ces fichiers.

bien sûr mais le traitement aurait été fait de telle sorte qu'on sache quel est le répertoire "courant"

j'aurais néanmoins du le signaler

[djibril]