#----------------------------- 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) 回复
??
回复评论