使用perl统计日志中单位时间内的请求数
发布时间:2020-12-16 00:04:26 所属栏目:大数据 来源:网络整理
导读:$file="g:/log/x.log";%map=();open(IN,"$file") || die "Couldn't open $filename for reading: $!";$num=0;$v=0;$str="";while($line=IN){if (!($line=~m/.*logid.*phonenumber.*message.*/)) {#不匹配就继续循环next;}#print $line."n";$str=substr($lin
$file="g:/log/x.log"; %map=(); open(IN,"<$file") || die "Couldn't open $filename for reading: $!"; $num=0; $v=0; $str=""; while($line=<IN>) { if (!($line=~m/.*logid.*phonenumber.*message.*/)) {#不匹配就继续循环 next; } #print $line."n"; $str=substr($line,20);#cut str if(exists ($map{$str})) { $v=$map{$str}; $v++; $map{$str}=$v; }else{ $map{$str}=1; } #print $str."===".$map{$str}."n"; } close($IN); while (($key,$value) = each(%map) ) { if($value>40){ print "$key ------$value "."n"; } } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |