Bonjour à vous tous,je viens sur cet espace en espérant que vous pouviez m'aider.Voici mon problème:
je dois pouvoir être capable d'éxécuter un script qui doit être capable de supprimer des fichiers d'extension .jpeg,.jpg,.mp3,.gif sur un disque dur,bref mon script doit être capable de supprimer des fichiers ayant les extensions spécifiés dans un dossier et sous dossier du dossier dans lequel il est déposé,puisqu'il serait forcement déposé dans un dossier.
Par exemple J'ai un dossier Partagé nommé Data,dans data j'ai les Partages WorkGroup et Personnaldata.Mon script doit être capable de supprimmer les ficiers selon les extensions spécifiés au niveau des partages,en clair il doit supprimer ces fichiers au niveau de WorkGroup et Personnaldata.
Pour que cela marche il va falloir déposer le script dans le dossier Data,et mon script doit être capable de faire la récursivité en allant dans les sous répertoires WorkGroup et Personnaldata,si possible atteindre les sous répertoire de WorkGroup et Personnaldata.
Malhereusement ,je me connais pas du tout en script,pour cela je pensais trouver un script sur le net et j'ai du faire des recherches sur google et j'ai eu ce script :
mais qui malhereusement ne fait pas ce que je veux,rapidement j'ai téléchargé Activeperl et l'installer manuellement,ensuite j'ai ajouté ]#!/usr/bin/perl au début et je l'ai enrégistrer avec une extension pl,et j'ai essayé de l'éxécuter avec ActivePerl,ca marche mais seulement que je n'arrive pas à spécifier mes autres extensions et je n'arrive pas non plus à aller vers les autre sous répertoire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 #!/usr/bin/perl $extension_to_delete = ".jpeg"; opendir (DIR,"."); @files = grep(/.*$extension_to_delete$/, readdir (DIR)); closedir (DIR); foreach $file (@files) { unlink $file; }
Aidez moi svp à améliorer mon script afin qu'il réponde à mon besoin,vous êtes mon dernier espoir.
Merci d'avance et désolé pour la longueur mais il fallait que je sois bien explicite.
Partager