Bonjour à tous,
J'ai aujourd'hui un besoin : Je souhaite répondre à ce besoin par un petit Script Perl.
Dans le contexte, j'ai un dossier par exemple C:\temp\ dans lequel il y a des fichiers avec l'extension .txt
Ces fichiers .txt sont censés être traités (par une machine sans détailler). Quand c'est le cas il se retrouvent dans le dossier C:\temp\ok\
Là où intervient mon Script Perl, c'est qu'il va vérifier une fois par jour que ce dossier C:\temp\ ne contienne plus de fichiers .txt afin de s'assurer qu'ils aient étés traités.
Si des fichiers .txt restent, je serais averti :
Ce script sera exécuté par Nagios, et pour ce, il y a un retour de script par la ligne :
exit $ERRORS{"OK"}; quand tout est ok,
ou
exit $ERRORS{"CRITICAL"}; quand il y a eu un problème.
Ayant une compréhension assez difficile dans le domaine de la programmation , tout les bouts de codes que je peux trouver me posent problème, je tombe sur des expressions régulières ou autre qui me complique encore plus la vie.
Si quelqu'un peut donc m'aider, me guider...
D'avance merci.
Partager