Discussion :

[faaf78]

Bonjour,

J'ai un fichier de log d'un serveur en json, je dois analyser ce fichier de log pour extraire toutes les requêtes effectuées, avec leurs arguments et les ordonner par sessionid.
Le fichier de log ressemble à cela :
pour les lignes des requêtes :
sessionID - 01/01/2011 12:00:00 - 00:00:00.0156250: ---> /requete
exple:
a5c121ccc12c4db88ad3dfgbess3ae59 - 07/11/2010 18:07:50 - 00:00:03.0119260: ---> /frontrt.aspx?Page=fcallefront&Efrontcall=Callback

pour les lignes avec les arguments:
a5c121ccc12c4db88ad3dfgbess3ae59 - 07/11/2010 18:07:51 - 00:00:00 : Callback target:'', arg:'//STUDIO/SERVER/JSON:{"COMMAND":"SEARCHCITY","POSTALCODE":"75001"}'

Je suis complètement perdu surtout que mon principal souci c'est que les arguments peuvent parfois tenir sur plusieurs lignes, il sont donc tronquées.

J'ai commencé à faire un script en Perl pour cela mais il ne fonctionne pas du tout :

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
 
!/usr/bin/perl -w
 
 
$LOGFILE = "log_18-32-02.log";
open(LOGFILE) or die("Could not open log file.");
foreach $line (<LOGFILE>) {
   my $line =(.*) \- ([0-9]*)/([0-9]*)/([0-9]*) ([0-9]*):([0-9]*):([0-9]*) - ([0-9]*):([0-9]*):([0-9]*)        : Callback target:'', arg:(.*);
 
 
 print "$line\n";
 
}
 
 
close(LOGFILE);

Merci de votre aide.

[faaf78]

Premiere étape: filtrer le fichier de log uniquement avec des lignes commençant par un sessionID
Problème comment gérer les ligne avec des arguments qui tienne sur plusieurs lignes ???

exple:

a5c121ccc12c4db88ad3dfgbess3ae59 - 08/12/2010 19:04:51 - 00:00:00 : Callback target:'', arg:'//STUDIO/SERVER/JSON:{"COMMAND":"SEARCHCITY","POSTALCODE":"75001","CITY":undefined,"EVENT":"ASSIGNERVILLE","ID":"D25FG6G5ER8R5FD6SD5FF4GY588UOP5D25FG6G5ER8R5FD6SD5FF4GY5DFFSDF54"}'

quelqu'un pourrait m'indiquer comment faire ?

ps: je ne veux pas de code tout fait mais juste les fonction ou l'algo à mettre en forme .

Merci

Edit:

j'ai remodifié mon script pour extraire les lignes qui m'intérésse :

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
 
#!/bin/perl
$fichier = 'log_18-32-02.log';
 
open (F, $fichier) || die "Problème pour ouvrir $fichier: $!";
 
while ($ligne = <F>) {
 
if ( $ligne =~ q{(.*) \- ([0-9]*)/([0-9]*)/([0-9]*) ([0-9]*):([0-9]*):([0-9]*) - ([0-9]*):([0-9]*):([0-9]*)        : Callback target:'', arg:(.*)} )
 
{ print $ligne;
}
if ( $ligne =~ q{(.*) \- ([0-9]*)/([0-9]*)/([0-9]*) ([0-9]*):([0-9]*):([0-9]*) - ([0-9]*):([0-9]*):([0-9]*)        : ---> (.*)} )
 
{ print $ligne;
}
 
 
 }
 
close F;

Il faut maintenant que je travaille sur les ligne en sortie pour travaillez sur les éléments qui m'interesse (requetes, arguments et session id).

comment puis-je ordonner mon script par session id ?

[Philou67430]

Un algorithme pour traiter des "blocs de données sur plusieurs lignes" est le suivant, en considérant que tu disposes d'une condition de test pour le début d'une ligne uniquement (à simplifier si tu connais également une condition de fin) :

Code :

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

1
2
3
4
5
6
7
8
9
my @bloc;
foreach my $ligne (<STDIN>) {
  if ($in_bloc = /^$debut_bloc_regexp/) {
    traiter_bloc(join "", @bloc) if @bloc;
    @bloc = ();
  }
  push @bloc, $ligne;
}
traiter_bloc(join "", @bloc) if @bloc;

La fonction traiter_bloc devrait traiter la ligne "entière". Son nom doit bien sur être adapté à ton besoin.
Maintenant, il faut que tu définisses ta condition de début de ligne (présence d'un session id ? quel motif pour ce session id ?)