perl suite

ligne de log :

www.linux-nuts.dyndns.org 80.14.8.231 - - [10/Apr/2002:11:02:36 +0200] "GET
/scripts/root.exe?/c+dir HTTP/1.0" 404 210 "-" "-"


Pgm en perl.
(($domai,$site,$rfc931,$user,$when,$request,$status,$bytes,$from,$agent)=

/^(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*\[([^\]]+)]\s*\"([^\"]+)"\s*(\S+)\s*(\S+)\
s*\"\s*([^\"]*)\s*\"\s*\"\s*([^\"]*)\s*\"\s*$/o)

C'est ok ou pas?

merci
anne