Script Perl à modifier

Bonjour :D ,

j'aurais une question pour vous, j'ai un script que je souhaiterais pouvoir modifer soit le contenu soit son comportement.

Je m'explique, c'est un script perl qui cherche des chaines de caractères dans un fichier de log. Il renvoie un ok ou une erreur en fonction des parametres et des chaines recherchées.

Il a été écrit pour rechercher dans un seul fichier de log et renvoyer l'erreur dans nagios (system de monitoring).
Et bien sur, moi, c'est pas 1 fichier mais plusieur que je voudrais bien checker avec la même commande et ainsi ne pas créer autant de check que de fichier de log. Et surtout que mes développeur ne viennent pas touts les jours pour me dire : Je viens de rajouter un batch, tu peux le supervisié?
le
J'ai chercher en premier lieu à utiliser les joker "*", mais il est conçu pour ce mettre en erreur dans ce cas.

j'ai essayer aussi de faire une liste des logs et ensuite de les faire tester un à un mais je casse les dents la dessus. :aie: :aie: :aie:

si vous avez une idée sur le sujet, je suis ouvert.

j'ai placer le script en pièce jointe.

Merci pour votre aide

Hello !! c'est moi que me revoilà. :yaisse2:

Je reposte au même endroit car c'est dans la continuité du premier.
j'ai fini par abandonner la modification du script d'origine qui ne veut qu'un seul non de fichier de log/oldlog, pour faire une petite moulinette qui me récupère les noms de mes différents fichiers de log et les soumet un à un au script qui existait déjà.

Je suis maintenant confronté à un autre souci, quand je fait appel au système via la commande perl: system( ma_commande param1 param2 parm3). J'ai l'impression que des retours charriot ou saut de lignes se glissent dans la commande et par conséquent mes paramètre sont mal interprétés par le système.

J'ai mis en Pj le petit script que j'ai écrit, à savoir, j'ai tester la commande sans les variables, en ne mettant qu'un seul fichier de log, c'est bon. Mais dès que je fais appel à la boucle pour les faire un par un sa plante.

si vous avez une idée ou que je me soit tromper à un endroit faite moi signe.
en attendant je vais continué à creuser.

mici

ps: la commande est ligne 32 avec un print l33

Fait un chomp($log) avant le system().
(Par ailleurs ton script initial n'est pas en Perl malgré l'extension .pl, c'est un script bash).

--
Jedaï

Ha ba c'est peut être pour ça que j'arrivais pas à tout décorticer, si c'est pas du perl. Sorry :oops:

Quel nul pour sur c'est sur la 1er ligne c'est écrit en gros "#!/bin/bash"

Je vais tester le chomp, j'y avais pas pensé :dehors: :fessee:
tant que j'y suis :boulet:

mici