Traitement log alarmes perl
Fermé
pomme2reinette
Messages postés
1
Date d'inscription
mardi 25 février 2014
Statut
Membre
Dernière intervention
25 février 2014
-
25 févr. 2014 à 07:00
[Dal] Messages postés 6194 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 11 octobre 2024 - 25 févr. 2014 à 11:03
[Dal] Messages postés 6194 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 11 octobre 2024 - 25 févr. 2014 à 11:03
A voir également:
- Traitement log alarmes perl
- Traitement de texte gratuit - Guide
- Acquisition de données pci et contrôleur de traitement du signal ✓ - Forum Windows 10
- Traitement de texte gratuit open office - Télécharger - Suite bureautique
- Vinted traitement en cours - Forum Facebook
- Denon perl pro test - Accueil - Audio
1 réponse
[Dal]
Messages postés
6194
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
11 octobre 2024
1 092
Modifié par [Dal] le 25/02/2014 à 11:07
Modifié par [Dal] le 25/02/2014 à 11:07
Salut pomme2reinette,
Si tous les fichiers logs AntenneA, AntenneB, sont dans le même répertoire, quelque chose comme cela devrait fonctionner :
L'opérateur
https://perldoc.perl.org/perlfaq4#How-can-I-tell-whether-a-certain-element-is-contained-in-a-list-or-array%3f
Dal
Si tous les fichiers logs AntenneA, AntenneB, sont dans le même répertoire, quelque chose comme cela devrait fonctionner :
#!/usr/bin/perl
use strict;
use warnings;
my $dir = '/chemin/vers/mon/repertoire';
opendir(DIR, $dir) or die $!;
while (my $fic_log = readdir(DIR)) {
if ($fic_log =~ /Antenne.*$/)
{
open (LIRE_LOG, '<', $fic_log)
or die "Impossible d'accéder au fichier $fic_log";
my @log_data = <LIRE_LOG>;
close(LIRE_LOG);
if (/>Status\s\((.*?)\)/ ~~ @log_data)
{
print "$fic_log;$1\n";
} else
{
print "Erreur : le fichier log $fic_log " .
"ne contient pas de ligne 'Status'\n";
exit;
}
}
}
closedir(DIR);
L'opérateur
~~permettant de matcher dans un array est disponible à partir de Perl 5.10
https://perldoc.perl.org/perlfaq4#How-can-I-tell-whether-a-certain-element-is-contained-in-a-list-or-array%3f
Dal