Discussion :

[jemigo]

Bonjour,

J'ai un fichier texte de ce type:

: 21967 [DATA] 21:03:53:402 2012/10/08 MODULE_TEST FILTRAGE_VERIFICATION
Parameter --> Len = 44, Addr = 0xF09704BC
data = (structure)
reference_counter = 1
msg_length = 44
value_filtrage = -105

le fichier contient le meme type de message et contents indiqué [DATA].
A chaque fois que je détecte [DATA], je souhaite récupérer dans un fichier de sorti txt: la date;time, et value_filtrage

comme ceci:
date;time;value_filtrage
2012/10/08;21:03:53:402;-105



Pour le moment j'arrive à extraire le value_filtrage mais pas la date et l'heure. Auriez-vous des suggestions? j'attache mon bout de code en pièce jointe.

[Jiheme44]

plutôt que d'utiliser des expressions régulières, tu pourrais utiliser la fonction split :

(à tester)

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
33
34
35
36
37
38
39
40
41
42
#!/usr/bin/perl
 
use strict;
use Win32::OLE;
use Win32::OLE::Variant;
 
 
# Global variables
my $nb_fileIN_line = 0;
my $file_in = shift;
my $file_out = shift;
my $line;
 
my $count_line = 0;
 
# Open Log File
open FILE_IN, $file_in 
     or die("cannot open $file_in");
 
# Open Log File parsed
open FILE_OUT, ">" . $file_out 
	 or die("cannot open $file_out for writing");
 
 
my ( $doubleDot, $refId, $dataString, $time, $date, $module, $filter );
my ( $stringValue, $value );
# read Input file line by line
while ($line = <FILE_IN>){
	chomp( $line ); #suppression du saut de ligne
 
	if ($line =~ /\[DATA\]/) {
		( $doubleDot, $refId, $dataString, $time, $date, $module, $filter ) = split( / /, $line);
		print FILE_OUT $date.";".$time.";";
	}
	if($line =~ /value_filtrage/) {
		( $stringValue, $value ) = split( /=/, $line);
		print FILE_OUT $value."\n";
	}
}
 
close FILE_IN;
close FILE_OUT;

sinon, pour le problème d'extraction de la date et l'heure, tu t'es trompé dans l'utilisation du nom d'une variable (ligne 29).

[jemigo]

Bonjour,

je viens d'essayer le bout de code. time et date ne s'affiche pas dans le fichier de sortie.

En ce qui concerne les valeurs elles ne sont pas toutes présentes. j'ai utilisé les expressions régulières de cette manière avec /i

Code :

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

if ($line =~ /value_filtrage = (\-?\d+)/i)

car parfois dans mon log de sortie j'ai "value_filtrage" ou "value_Filtrage" capital "F".

[6ril23]

essaie ce code, en rouge la partie modifiée par rapport à ton code

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
33
34
35
36
37
38
39
#!/usr/bin/perl

use strict;
use Win32::OLE;
use Win32::OLE::Variant;


# Global variables
my $nb_fileIN_line = 0;
my $file_in = shift;
my $file_out = shift;
my $line;
my $timeDate;
my $l;
my $count_line = 0;

# Open Log File
open FILE_IN, $file_in 
     or die("cannot open $file_in");

# Open Log File parsed
open FILE_OUT, ">" . $file_out 
	 or die("cannot open $file_out for writing");

# read Input file line by line
while ($line = <FILE_IN>){
	
	
	if ($l =~ #\[DATA\]\s*(\d{2}:\d{2}:\d{2}:\d{3}\s+\d{4}/\d{2}/\d{2})#){
                $timeDate = $1;
		printf FILE_OUT "$timeDate";
	}
	elsif($line =~ /value_filtrage = (\-?\d+)/i) {
		printf FILE_OUT "%d\n", $1;		
	}
}

close FILE_IN;
close FILE_OUT;

[Jiheme44]

Bonjour,

je viens d'essayer le bout de code. time et date ne s'affiche pas dans le fichier de sortie.

il est possible que ça vienne de la regex envoyé à la fonction split.
Comme je l'ai marqué, le code n'a pas été testé.
Peut être qu'en remplaçant / / par " ", le code pourrait fonctionner.

[Lolo78]

Bonjour, ça tient en 5 lignes de code utile.

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
my ($time, $date);
while (<DATA>) {
	chomp;
	($time, $date) = (split /\s+/, $_)[3,4] if /\[DATA\]/;
	print "$date $time $1 \n" if m/^value_filtrage =\s+([+-]?\s?\d+)/;
}
 
__DATA__
: 21967 [DATA] 21:03:53:402 2012/10/08 MODULE_TEST FILTRAGE_VERIFICATION
Parameter --> Len = 44, Addr = 0xF09704BC
data = (structure)
reference_counter = 1
msg_length = 44
value_filtrage = -105
: 21967 [DATA] 21:03:53:402 2012/11/08 MODULE_TEST FILTRAGE_VERIFICATION
Parameter --> Len = 44, Addr = 0xF09704BC
data = (structure)
reference_counter = 1
msg_length = 44
value_filtrage = -104
: 21967 [DATA] 21:03:53:402 2012/12/08 MODULE_TEST FILTRAGE_VERIFICATION
Parameter --> Len = 44, Addr = 0xF09704BC
data = (structure)
reference_counter = 1
msg_length = 44
value_filtrage = -103

Ce qui me donne l'affichage suivant:

Code :

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

1
2
3
4
$ perl  parser.pl
2012/10/08 21:03:53:402 -105
2012/11/08 21:03:53:402 -104
2012/12/08 21:03:53:402 -103

[jemigo]

Bonjour,
Merci pour votre aide. j'ai opté pour la dernière solution. j'ai adapté le code de façon a récupérer date et time dans deux variables différentes.

Code :

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

1
2
3
4
5
6
7
8
9
while ($line = <FILE_IN>){
 if ($line =~ /\[Primitive\]\s*(\d{2}:\d{2}:\d{2}:\d{3})\s+(\d{4}\/\d{2}\/\d{2})/){
    $time = $1;
	$date = $2;
 }
 elsif($line =~ /serving_power_in_quarter_dBm = (\-?\d+)/i) {
 printf FILE_OUT "%s;%s;%s\n", $date , $time, $1;
 }
}

Ca fonctionne parfaitement! Merci.

Sujet Résolu!