Discussion :

[GTJuanpablo]

Bonjour,

Je suis issu du dev web et je débute en shell. J'aimerai créer un script Perl qui sera éxécuter avec un cron et qui fera le travail suivant:

Parser un fichier de log apache:

Code :

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

1
2
3
4
5
::1 - - [21/Apr/2009:09:38:52 +0200] "GET /.gif&utilisation=1&acces=1@stats=2 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"
::1 - - [21/Apr/2009:09:38:53 +0200] "GET /.gif&utilisation=1&acces=1@stats=3 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"
::1 - - [21/Apr/2009:09:38:57 +0200] "GET /.gif&utilisation=1&acces=2@carotte=2 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"
::1 - - [21/Apr/2009:09:38:59 +0200] "GET /.gif&utilisation=1&acces=1@patate=8 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"
:1 - - [21/Apr/2009:09:38:59 +0200] "GET /.gif&utilisation=1&acces=1@patate=8 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"

Afin de créer un nouveau fichier CSV qui affichera mes logs de la sorte:

Code :

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

1
2
3
4
5
6
7
8
# ----------------------------------------
# Table
# ----------------------------------------
/.gif&utilisation=1&acces=1@stats=2, 1
/.gif&utilisation=1&acces=1@stats=3, 1
/.gif&utilisation=1&acces=2@carotte=2, 1
/.gif&utilisation=1&acces=1@patate=8, 2
# --------------------------------------------------------------------------------

Il faudrait donc que j'écrive dans ce nouveau CSV en regroupant les lignes identiques et en indiquant leur nombre par le compteur (en gras sur l'exemple)

Dur dur... pouvez-vous m'aider? merci d'avance


merci d'avance

[djibril]

Il te faut lire le fichier ligne à ligne et à base de regex, tu peux ce que tu veux.
Essaye de lire nos cours et FAQ.

Je t'ai fais un code :

test.log

::1 - - [21/Apr/2009:09:38:52 +0200] "GET /.gif&utilisation=1&acces=1@stats=2 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"
::1 - - [21/Apr/2009:09:38:53 +0200] "GET /.gif&utilisation=1&acces=1@stats=3 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"
::1 - - [21/Apr/2009:09:38:57 +0200] "GET /.gif&utilisation=1&acces=2@carotte=2 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"
::1 - - [21/Apr/2009:09:38:59 +0200] "GET /.gif&utilisation=1&acces=1@patate=8 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"
:1 - - [21/Apr/2009:09:38:59 +0200] "GET /.gif&utilisation=1&acces=1@patate=8 HTTP/1.1" 200 - "-" "Bla CFNetwork/422.11 Darwin/9.6.3 (i386) (iMac9%2C1)"

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
#!/usr/bin/perl
use warnings;
use strict;
 
# Parsing
my $InputLog = 'test.log';
open (LOG, '<', $InputLog) or die("Impossible de lire $InputLog\n");
my %Occurence;
while ( my $Ligne = <LOG> ) {
  chomp $Ligne;
  my ($Url) = $Ligne =~ m{get\s*(.+)\s*HTTP/}i;
  $Occurence{$Url} ++;  
}
close(LOG);
 
# CSV
my $Output = 'test.csv';
open (CSV, '>', $Output) or die("Impossible d'ecrire dans $Output\n");
foreach my $occ ( keys %Occurence ) {
  print CSV "$occ, $Occurence{$occ}\n";
}
close(CSV);
 
print "Fin\n";

SORTIE test.csv

/.gif&utilisation=1&acces=1@patate=8 , 2
/.gif&utilisation=1&acces=1@stats=3 , 1
/.gif&utilisation=1&acces=2@carotte=2 , 1
/.gif&utilisation=1&acces=1@stats=2 , 1

[GTJuanpablo]

merci, ca marche

[djibril]

oublie pas le tag résolu