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.