Perl et commande shell

Bonjour,

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

Code:

---

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

---

fonctionne très bien.

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

Code:

---

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

---

Mais cela ne marche pas, mais affiche :

Code:

---

find: Paramètre manquant pour « -exec »

---

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

Merci d'avance.

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).

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.

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.

Merci.

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

Code:

---

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 ?

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:

---

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.

D'accord merci.

Mais en considérant que mes sous-répertoires peuvent être supprimés, remove_tree va me supprimer l'ensemble des fichiers (OK) mais aussi l'ensemble des répertoires contenus dans Proj/.

Si tu veux effectivement garder l'arborescence et ne supprimer que les fichiers, quelque chose du style en utilisant le module File::Find devrait fonctionner :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

use strict; use warnings; use File::Find;   find(\&delete_files, "$dir/Proj");   sub delete_files { if (-f){ unlink or die "Unlink error : $!"; } }

---

Ici la fonction find va parcourir récursivement le ou les dossiers passé en paramètre et appliquer la fonction delete_files sur chaque fichier ou répertoire rencontré. Cette fonction teste si c'est un fichier et va le supprimer.

Bien entendu, c'est une ébauche et il n'y a pas de vérifications des droits, pas de gestion des liens symboliques (option follow de la fonction "wanted") etc... Pour plus d'info, voir la page cpan du module

Attention, Beniou, kimikou ne veut pas supprimer tous les fichiers, uniquement ceux qui contiennent un point.

En fait, cela revient au même dans mon cas puisque tous mes fichiers contiennent un point.

Mais effectivement, je serai intéressé de connaitre une méthode dans le cas où on voudrai supprimer des fichiers particuliers.

Il existe tout un tas de tests sur le type de fichier (-r -w -x -o -e -z -s -f -d -s -l -p, etc.), tu devrais trouver ton bonheur.

Citation:

---

Envoyé par Schmorgluck

Attention, Beniou, kimikou ne veut pas supprimer tous les fichiers, uniquement ceux qui contiennent un point

---

Effectivement, kimikou cherchait des fichiers avec '*.*' mais j'avais juste lu :

Citation:

---

Envoyé par kimikou

J'aimerai supprimer récursivement les fichiers contenu dans Proj/

---

Citation:

---

Envoyé par kimikou

Mais effectivement, je serai intéressé de connaitre une méthode dans le cas où on voudrai supprimer des fichiers particuliers.

---

Pour cela tu peux rajouter un test après le(s) test -f,etc : une expression régulière pour ne supprimer que les fichiers que tu souhaites :

Exemple non testé : supprimer les fichiers finissant par toto*.txt (Ensuite tu peux appliquer un basename pour vraiment avoir le nom du fichier et être plus précis dans ta sélection) :

Code:

---

1 2 3 4 5

sub delete_files { if (-f && /toto.*[.]txt$/) { unlink or die "Unlink error : $!"; } }

---