Mercurial > hg > Members > anatofuz > Perl6_log_analyze_example
diff log_analyze.rb @ 0:b42d5cbbd972
add
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 18 Jul 2018 17:25:20 +0900 |
parents | |
children | 4f7103163762 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/log_analyze.rb Wed Jul 18 17:25:20 2018 +0900 @@ -0,0 +1,23 @@ +#!/usr/bin/env ruby + +file = "/var/log/system.log" + +user_name = Regexp.new("anatofuzMBP|anatofuz-15") +count = Hash.new(0) + +File.open(file,'r') do |f| + f.each_line do |line| + if line =~ /\w \d{0,2} (?:\d{2}:?){3} #{user_name} ([\w.]+)\[\d+\]/ + count[$1] += 1 + end + end +end + + +sum = 0 + +for key in count.keys + sum += count[key] +end + +p sum