Discussion :

[Nickname]

Plop all,

Je fais actuellement mon programme "parseur de log".

Il ne me reste plus qu'à optimiser mes expressions régulières.

Deux formats d'expression : Apache et IIS

Voici un exemple de log pour ces deux formats :

Apache

Code :

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

1
2
 
192.90.90.90 - - [10/Aug/2009:19:45:42 +0100] "GET /index.php HTTP/1.1" 100 200 "http://www.developpez.com" "Mozilla/4.0 (compatible; MSIE 7.0; Windows)"

IIS

Code :

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

1
2
 
2008-01-05 10:10:10 192.90.90.91 - GET /index.php 200 133 - Mozilla /4.0 (compatible; MSIE 7.0; Windows) http://www.developpez.com/

J'ai actuellement un problèmes sur mes expressions que voici :

Code :

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

1
2
3
 
my $APACHE  = q{(\S+)\s+\S+\s+\S+\s+\[(\d+)/(\D+)/(\d+):\d+:\d+:\d+\s+\+\d+\]\s+\"(\S+)\s+(\S+)\s+\"\s+(\S+)\s+(\S+)\s+\"(.*)\"\s+\"(.*)\"};
my $IIS = q{(\d+)-(\d+)-(\d+)\s+\d+:\d+:\d+\s+(\S+)\s+\S+\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+\S+\s+(\S+)\s+(\S+)};

Premier problème, je crois qu'il doit y avoir une erreur dans la ligne apache et je ne vois pas ou.

Au niveau de le ligne IIS, je ne vois pas comment récupérer Mozilla /4.0 (compatible; MSIE 7.0; Windows) et http://www.developpez.com/ sachant qu'il n'y a pas de quote ici et qu'il y a plusieurs espaces dans le user agent (Mozilla 4.0 etc...).

Avez-vous une idée comment procéder ?

Je pense que je vais devoir me servir de ^http mais cela aurait pu être www.

Merci à vous

[Jasmine80]

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
#!/usr/local/bin/perl
 
 
use strict;
use warnings;
 
 
 
my $apache = q{192.90.90.90 - - [10/Aug/2009:19:45:42 +0100] "GET /index.php HTTP/1.1" 100 200 "http://www.developpez.com" "Mozilla/4.0 (compatible; MSIE 7.0; Windows)"};
my $iis = q{2008-01-05 10:10:10 192.90.90.91 - GET /index.php 200 133 - Mozilla /4.0 (compatible; MSIE 7.0; Windows) http://www.developpez.com/};
 
 
if ( $apache =~ m{([\d.]+)[-\s]+\[(\w+)/(\w+)/(\d+)[\d:]+\s\+\d+\] "([A-Z]+) /(.*)" (\d+) (\d+) "(.*)" "(.*)"}){
 
	my ($ip, $jour, $mois, $annee, $method, $page, $ret_code, $byte, $referer, $user_a) = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10);
	print "ip = $ip\njour = $jour\nmois = $mois\nannée = $annee\nmeth = $method\npage = $page\ncode = $ret_code\nby = $byte\nref = $referer\nuser = $user_a\n\n\n";
}
 
 
 
if ( $iis =~ m{(\d+)-(\d+)-(\d+)\s[\d:]+\s([\d.]+)\s-\s([A-Z]+)\s/(.*)\s(\d+)\s(\d+)\s-\s(.*)\s(\S*)}){
 
	my ($annee, $mois, $jour, $ip, $method, $page, $ret_code, $byte, $referer, $user_a) = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10);		
	print "ip = $ip\njour = $jour\nmois = $mois\nannée = $annee\nmeth = $method\npage = $page\ncode = $ret_code\nby = $byte\nref = $referer\nuser = $user_a\n\n\n";
}

Je pense que je vais devoir me servir de ^http mais cela aurait pu être www.

je pense qu'une adresse ne peut pas avoir d'espaces, utilise \S* sinon

Code :

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

((?:http://)?www.*)

[Jasmine80]

Tu peux évidemment remplacer les \s par de simples espaces

Code :

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

if ( $iis =~ m{(\d+)-(\d+)-(\d+) [\d:]+ ([\d.]+) - ([A-Z]+) /(.*) (\d+) (\d+) - (.*) ((?:http://)?www.*)})

[Nickname]

Nickel comme toujours !

Je test cela ce soir pour pas changer loool

Merci beaucoup.