Discussion :

[tonixm]

Bonjour,

J'ai a réaliser un filtre en perl pour le système syslog.
J'ai en entrée un fichier .conf et un fichier .analyse et en sortie un fichier .tmp et .debug.
Je voudrais réaliser la chose suivante: le script test une par une les ligne de .analyse et .conf et si une ligne de .conf et une sous-chaine de .analyse la ligne de .analyse est mise dans un fichier debug. Sinon elle est mise dans un fichier .tmp:

exemple concret:
analyse
Apr 22 10:59:22 vmonitor Server Administrator: line
Apr 22 10:58:49 vmonitor ntpd: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 E
Apr 22 10:58:49 vmonitor ntpd: precision = 18.000 usec
Apr 22 10:58:49 vmonitor ntpd: Listening on interface wildcard, 0.0.0.0#1
Apr 22 10:58:49 vmonitor ntpd: Listening on interface wildcard, ::#123
Apr 22 10:58:49 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123
Apr 22 10:58:49 vmonitor ntpd: Listening on interface eth0, 172.16.15.39#

.conf
ntpd: precision
ntpd: Listening on
ntpd: ntpd

Avec ce script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 open CONF,"$confFile" or die "E/S : $!\n";
	open ANALYSE,"$fileAnalyse" or die "E/S : $!\n";
	open TMP,">$fileTmp" or die "E/S : $!\n";
	open DEBUG,">$fileDebug" or die "E/S : $!\n";	
 
 	my @conf=<CONF>;
	chomp @conf;	
	while(my $e=<ANALYSE>){	
	  print DEBUG "$e";
	  print TMP $e unless grep
	  {
 	      $e=~ m/$_/i;
	      if($e=~ m/$_/i){
		print DEBUG "Filtré par $_\n\n";
	      }
	    }
	  } @conf;
	}

J'obtient:
.tmp
RIEN alors qu'on devrait avoir : Apr 22 10:59:22 vmonitor Server Administrator: line

.debug
RIEN alors qu'on devrait avoir:
Apr 22 10:58:49 vmonitor ntpd: precision = 18.000 usec
Apr 22 10:58:49 vmonitor ntpd: Listening on interface wildcard, 0.0.0.0#1
Apr 22 10:58:49 vmonitor ntpd: Listening on interface wildcard, ::#123
Apr 22 10:58:49 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123
Apr 22 10:58:49 vmonitor ntpd: Listening on interface eth0, 172.16.15.39#


Quelqu'un saurait d'où cela peut provenir.
Cet exemple est copié mot pour mot de mon fichier

[tonixm]

alors qu'avec ce fichier .analyse et ce fichier .conf cela focntionne:

.analyse
Storage Service EventID: 2242 The Patrol Read has started.: Controller 0 (PERC
6/i Integrated)
Storage Service EventID: 2243 The Patrol Read has stopped.: Controller 0 (PERC
6/i Integrated)
Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Instrumentation Service EventID: 1000 Server Administrator starting
Instrumentation Service EventID: 1012 IPMI status Interface: OS


.conf

The Patrol Read has started
The Patrol Read has stopped
Server Administrator starting

.tmp

Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Storage Service EventID: 2095 SCSI sense data Sense key: 4 Sense code: 0 Sens
e qualifier: 81: Physical Disk 0:17 Controller 0, Connector 0
Instrumentation Service EventID: 1012 IPMI status Interface: OS

.debug

Storage Service EventID: 2242 The Patrol Read has started.: Controller 0 (PERC
6/i Integrated) filtré par The Patrol Read has started
Storage Service EventID: 2243 The Patrol Read has stopped.: Controller 0 (PERC
6/i Integrated) filtré par The Patrol Read has stopped
Instrumentation Service EventID: 1000 Server Administrator starting filtré par Server Administrator starting

[tonixm]

donc je suis un peu beaucoup

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl
use strict; use warnings;
 
my($conf_file, $analyse_file, $tmp_file, $debug_file) =
  qw/.conf .analyse .tmp .debug/;
my @filters = do {
  open my($conf), '<', $conf_file
    or die "Couldn't open $conf_file : $!\n";
  <$conf>
};
chomp @filters;
 
open my($tmp), '>', $tmp_file
  or die "Couldn't open $tmp_file : $!\n";
open my($debug), '>', $debug_file
  or die "Couldn't open $debug_file : $!\n";
 
open my($analyse), '<', $analyse_file
  or die "Couldn't open $analyse_file : $!\n";
while( my $line = <$analyse> ) {
  chomp $line; 
 
  my $filtered;
  for my $filter (@filters) {
    if( $line =~ m/$filter/i ) {
      print {$debug} "$line filtré par " unless $filtered++;
      print {$debug} "<$filter> ";
    }
  }
  print {$debug} "\n" if $filtered;
  print {$tmp} "$line\n" unless $filtered;
}

--
Jedaï

[tonixm]

merci je vais essayer ta solution