Extraction fichier log

**nox73** · 27/05/2010, 10h10

Bonjour,
Je souhaite extraire d'un fichier log les URLs, les dates, le user agent du robot.
Voici un bout de mon fichier log :

Code :

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

1
2
195.59.122.71 - - [30/Mar/2010:06:50:25 +0200] "GET /m/help/engagements.tmpl.php HTTP/1.1" 200 9772 "-" "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)" t=0
66.249.65.122 - - [30/Mar/2010:09:25:56 +0200] "GET /m/ps/mpid:MP-C1BC9M1597520 HTTP/1.1" 200 8726 "-" "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)" t=0

Suis-je obligé d'utiliser les expressions régulières ?
La translittération est elle une solution ?

Merci d'avance.
Thomas.

**djibril** · 27/05/2010, 10h28

Regarde ce module, il est pas mal : Regexp::Log::Common.

**nox73** · 27/05/2010, 10h35

Ok merci

je vais jeter un coup d'oeil.

**nox73** · 27/05/2010, 11h05

J'ai un souci au niveau de l'install je pense, quand je compile mon code j'ai ce message d'erreur :

Code :

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

Can't locate object method "new" via package "Regexp::Log::Common" at regexplog.pl line 6.

Pour l'installer j'ai fait :
cd Regexp-Log-Common-0.05
perl Makefile.pl
make test
make install

Mais il y a un probleme :

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
26
27
28
29
cd Regexp-Log-Common-0.05/
root@Ubuntu-Thomas:/home/thomas/Bureau/Regexp-Log-Common-0.05# perl Makefile.PL
Warning: prerequisite Regexp::Log 0 not found.
Writing Makefile for Regexp::Log::Common
root@Ubuntu-Thomas:/home/thomas/Bureau/Regexp-Log-Common-0.05# make
Skip blib/lib/Regexp/Log/Common.pm (unchanged)
Manifying blib/man3/Regexp::Log::Common.3pm
root@Ubuntu-Thomas:/home/thomas/Bureau/Regexp-Log-Common-0.05# make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/00basic.t ..... ok   
t/10common.t .... Can't locate object method "new" via package "Regexp::Log::Common" at t/10common.t line 15.
# Looks like your test exited with 255 before it could output anything.
t/10common.t .... Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 46/46 subtests 
t/90podtest.t ... skipped: Test::Pod 1.00 required for testing POD
t/91podcover.t .. skipped: Test::Pod::Coverage 0.08 required for testing POD coverage
t/94metatest.t .. skipped: Test::YAML::Meta required for testing META.yml
 
Test Summary Report
-------------------
t/10common.t  (Wstat: 65280 Tests: 0 Failed: 0)
  Non-zero exit status: 255
  Parse errors: Bad plan.  You planned 46 tests but ran 0.
Files=5, Tests=1,  0 wallclock secs ( 0.02 usr  0.00 sys +  0.06 cusr  0.02 csys =  0.10 CPU)
Result: FAIL
Failed 1/5 test programs. 0/1 subtests failed.
make: *** [test_dynamic] Erreur 255
root@Ubuntu-Thomas:/home/thomas/Bureau/Regexp-Log-Common-0.05# make install
Appending installation info to /usr/local/lib/perl/5.10.1/perllocal.pod