Traitement de logs apache vers fichier CSV

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:

---

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:

---

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

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

Citation:

---

::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:

---

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

Citation:

---

/.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

---

merci, ca marche:yaisse2:

oublie pas le tag résolu