\[(\d{2})\/(\w{3})\/(\d{4}):(\d{2}):(\d{2}):(\d{2})\ -(\d{4})\]\ #date
"GET\ ([\/\w\-\.]+)\ HTTP\/\d\.\d"\ # request string
(\d{3})\ #staus resonse
\[(\d{2})\/(\w{3})\/(\d{4}):(\d{2}):(\d{2}):(\d{2})\ -(\d{4})\]\ #date
"GET\ ([\/\w\-\.]+)\ HTTP\/\d\.\d"\ # request string
(\d{3})\ #staus resonse
my $hostname = $1;
my( $mday, $mon, $year, $hours, $min, $sec, $zone ) =
my $hostname = $1;
my( $mday, $mon, $year, $hours, $min, $sec, $zone ) =
- ( $2, $3, $4, $5, $6, $7, $8 );
+ ( $4, $5, $6, $7, $8, $9, $10 );