Script pour lister les fichiers txt

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 :aie:, 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. :ccool:

Bonjour,

Il n'y a pas besoin d'utiliser des expressions régulières ou une façon compliquée pour faire ce que tu veux :
1) Lister les fichiers .txt d'un répertoire : cela se fait par exemple avec la commande bsd_glob sur ton chemin.
2) compter combien tu as de fichiers dans ton tableau et retourner la valeur adéquate (Ici je fais un print, à toi d'adapter pour retourner la valeur pour Nagios)

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

use strict; use warnings; use File::Spec; use File::Glob ':glob';       my $rep = "C:\\temp\\"; my $extension = ".txt";   my @text_files = bsd_glob(File::Spec->catfile($rep,"*".$extension));   if(scalar(@text_files) == 0){ print "SUCCESS\n"; } else{ print "CRITICAL\n"; }

---

Ici 2 choses :
1) la fonction catfile va concaténer ton répertoire avec le symbole "*" suivant de ton extension ".txt" pour donner "C:\temp\*.txt" . Mais tu peux utiliser directement ton chemin en dur comme ceci si tu veux :

Code:

---

my @text_files = bsd_glob("C:\\temp\\*.txt")

---

2) Je mets deux "\" pour les chemins car le caractère "\" est spécial dans Perl car il sert à protéger certains autres caractères donc du coup lorsque je mets "C:\\temp\\" Perl va comprendre "C:\temp\". Tu peux faire un print pour voir.

Superbe.
J'ai pu l'adapter à Nagios et passer le répertoire en paramètre.
Merci beaucoup. :ccool::ccool::ccool: