Problème sur regexp

Version imprimable

Problème sur regexp

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:

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:

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:

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

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
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";
}

Citation:

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:

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

23/04/2009, 08h56
Jasmine80

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

Code:

if ( $iis =~ m{(\d+)-(\d+)-(\d+) [\d:]+ ([\d.]+) - ([A-Z]+) /(.*) (\d+) (\d+) - (.*) ((?:http://)?www.*)})
23/04/2009, 10h37
Nickname

Nickel comme toujours ! :)

Je test cela ce soir pour pas changer loool

Merci beaucoup.