
#-----------------------------
while ( <LOGFILE> )
{
my ( $client, $identuser, $authuser, $date, $time, $tz, $method,
$url, $protocol, $status, $bytes ) =
/^ ( \S+ ) ( \S+ ) ( \S+ ) \[ ( [^:]+ ) : ( \d+:\d+:\d+ ) ( [^\]]+ ) "(\S+) (.*?) (\S+)" ( \S+ ) ( \S+ ) $/ or next;
# ...
}
#-----------------------------




by: 发表于:2017-09-15 16:57:58 顶(0) | 踩(0) 回复
??
回复评论