Discussion :

[medsup]

Créer un script perl qui reçoit en argument 2 fichiers logs et génère un fichier output.

Exemple Input:
00:05:02 postfix/clea:0002:9999:2:1
3DE2710057: message-id=<20091213230502.3DE2710057@linux.local>

Exemple Output:
postfix/clea|0002|9999|2|1|3DE2710057: message-id=<20091213230502.3DE2710057@linux.local>|15/12/2009 00:05:02|15/12/2009 00:005:02|1

mon problème pour le moment est le suivant:
1) comment normaliser toute les lignes de fichier input (suppression d'espace)
2) concaténation des 2 lignes.

please some help!! thx
Best Regards.

[Philou67430]

J'ai du mal à comprendre toute la logique de transformation/merge des log d'entrée en un log de sortie.

[medsup]

oui c'est un peu compliqué!
step1 : je veux concaténer 2 lignes (pour tt le texte).
step2 : je veux normaliser les ligne, par exemple pour une ligne:

00:05:02 postfix/clea:0002:9999:2:1 3DE2710057: message-id=<20091213230502.3DE2710057@linux.local>

je supprime les espaces et les remplace par des "|" et en même temps ignorer cette étape pour un certain bloc exemple : 3DE2710057: message-id=<20091213230502.3DE2710057@linux.local>

[Philou67430]

Tout ceci est très facile a réaliser, mais tu n'as toujours pas décrit correctement ta problématique. Notamment, dans ta normalisation, je constate d'après ton 1er message, que ce ne sont pas uniquement les espaces qui sont transformés en |, mais également les :
De même, il faut que tu décrives avec précision la zone d'exclusion pour cette normalisation.
Enfin, il faut que tu donnes un exemple de chaque fichier log, et avec des données cohérentes (et si possible les identifier clairement dans l'exemple de sortie, par des couleurs par exemple) car ta concaténation dans le message 1 semble plus complexe que ton explication (disparition de la date, concaténation de plusieurs lignes en une seule, ...).

[medsup]

bon je veux prendre le travail step par step.
les 2 fichiers log sont de la même forme ( dans une étape ultérieure je dois déterminer le nbre d'occurance des ligne) mais pour le moment je m’intéresse pour le 1er fichier: chaque bloc d'information est écrit sur deux ligne et qui doit être afficher en sortie sur une seul ligne. par exemple:

input:

00:05:02 postfix/clea:0002:9999:2:1
3DE2710057: message-id=<20091213230502.3DE2710057@linux.local>

output:

postfix/clea|0002|9999|2|1|3DE2710057: message-id=<20091213230502.3DE2710057@linux.local>|15/12/2009 00:05:02|15/12/2009 00:005:02|1

les incolores on peut les ignoré pour le moment. la séparation entres les elts doit etre avec "|" . se qui me gêne le plus c'est que dans une ligne de départ la séparation entre les éléments n'est pas unique.

[Philou67430]

Question : d'où sortent les éléments en noir dans le fichier de sortie ? (15/12/2009 avant l'heure du fichier d'entrée, 15/12/2009 00:005:02|1).

Il est impossible de les ajouter sans savoir d'où ils sont extraits.

Si l'on omet ces valeurs inconnues, le reste peut sans doute être réalisé ainsi :

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
my @log;
while (<>) {
  chomp;
  push @log, $_;
  if (@log == 2) {
    my ($time, $path, @data) = $log[0] =~ /([\d:]+)\s+(.*?):(.*?):(.*?):(.*?):(.+)/;
    print join "|", $path, @data, $log[1], $time;
    print "\n";
  }
}