bsdjunkie
June 3rd, 2003, 15:02
[code:1:cd2c593fcd]while (<LOGFILE>) {
my ($client, $identuser, $authuser, $date, $time, $tz, $method,
$url, $protocol, $status, $bytes) =
/^(\S+) (\S+) (\S+) \[([^:]+):(\d+:\d+:\d+) ([^\]]+) "(\S+) (.*?) (\S+)"
(\S+) (\S+)$/;
#add any other stuff you want/need...
}[/code:1:cd2c593fcd]
my ($client, $identuser, $authuser, $date, $time, $tz, $method,
$url, $protocol, $status, $bytes) =
/^(\S+) (\S+) (\S+) \[([^:]+):(\d+:\d+:\d+) ([^\]]+) "(\S+) (.*?) (\S+)"
(\S+) (\S+)$/;
#add any other stuff you want/need...
}[/code:1:cd2c593fcd]