Bonjour,
J'aimerai supprimer récursivement les fichiers contenu dans Proj/ :
En shell,fonctionne très bien.
Code : Sélectionner tout - Visualiser dans une fenêtre à part find /home/user/Proj/ -name "*.*" -exec rm -rf "{}" \;
J'aimerai maintenant l'insérer dans mon code perl :
Mais cela ne marche pas, mais affiche :
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);
Où est le problème? et peut-on le réaliser directement en perl?
Code : Sélectionner tout - Visualiser dans une fenêtre à part find: Paramètre manquant pour « -exec »
Merci d'avance.
Partager