next if /^$/;
#rootwood.haze.st - - [24/Dec/2001:15:33:50 -0800] "GET / HTTP/1.0" 200 1388544 "-" "xmms/1.2.5" 89
/^
- ([\w\-\.]+)\ -\ -\ #hostname
+ ([\w\-\.]+)\ #hostname
+ ([\w\-]+)\ #identd!!
+ ([\w\-]+)\ #authname
\[(\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 ) =
- ( $2, $3, $4, $5, $6, $7, $8 );
+ ( $4, $5, $6, $7, $8, $9, $10 );
- my $mountpoint = $9;
- my $status = $10;
- my $bytes = $11;
- my $referer = $12;
- my $useragent = $13;
- my $seconds = $14;
+ my $mountpoint = $11;
+ my $status = $12;
+ my $bytes = $13;
+ my $referer = $14;
+ my $useragent = $15;
+ my $seconds = $16;
$SIG{HUP} = sub { $eof=1 };
print join("\t",