Discussion :

[kimikou]

Bonjour,

J'aimerai supprimer récursivement les fichiers contenu dans Proj/ :
En shell,

Code :

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

find /home/user/Proj/ -name "*.*" -exec rm -rf "{}" \;

fonctionne très bien.

J'aimerai maintenant l'insérer dans mon code perl :

Code :

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

1
2
my $com = `find /home/user/Proj/ -name "*.*" -exec rm -rf "{}" \;`;
my $res = system($com);

Mais cela ne marche pas, mais affiche :

Code :

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

find: Paramètre manquant pour « -exec »

Où est le problème? et peut-on le réaliser directement en perl?

Merci d'avance.

[Lolo78]

Bon, je ne veux pas tester une commande aussi dangereuse.

Mais peut-être faut-il doubler le back-slash à la fin (dont je ne sais pas trop à quoi il sert, d'ailleurs, de même que le ; qui le suit).

[kimikou]

Cela ne change rien.

Cependant, tout compte fait, pour une question de portabilité, je préférerai le réaliser en Perl.

Est-ce possible ?

Merci d'avance.

[Lolo78]

Oui, bien sûr, à mon avis c'est mieux en perl qu'en shell.

Les fonctions opendir et readdir permettent de bien contrôler ce que l'on fait. Mais, dans beaucoup de cas, la fonction "glob /my_dir/*.*" fait aussi bien, ou mieux.

[kimikou]

Merci.

J'ai donc procédé de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
foreach (glob("$dir/Proj/rep1/*.*")) {
	 unlink("$_");
}
foreach (glob("$dir/Proj/rep2/*.*")) {
	 unlink("$_");
}
foreach (glob("$dir/Proj/rep1/sous_rep1/*.*")) {
	 unlink("$_");
}
foreach (glob("$dir/Proj/rep1/sous_rep2/*.*")) {
	 unlink("$_");
}

Mais au lieu de parcourir chaque dossier et sous-dossier, peut-on parcourir tout en même temps ?

[Beniou]

Bonjour,

Le plus simple serait d'utiliser la fonction 'remove_tree' du package File::Path qui efface le contenu d'un répertoire de façon récursive.

Code :

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

1
2
3
4
5
use strict;
use warnings;
use File::Path 'remove_tree';
 
remove_tree("$dir/Proj/", {keep_root => 1, safe => 1}) or die "Error : $!\n\n";

L'option keep_root permet de garder le répertoire racine et l'option safe permet de ne pas tenter de supprimer des fichiers/répertoires où l'on n'aurait pas les droits suffisants.