Mercurial > hg > Members > anatofuz > Perl6_log_analyze_example
view log_analyze.rb @ 1:4f7103163762 default tip
update
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 18 Jul 2018 18:03:58 +0900 |
parents | b42d5cbbd972 |
children |
line wrap: on
line source
#!/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