求助awk对文本格式化匹配处理

jeffinier

要从如下格式的log内收集每半小时内server状态是up的数量。。有几个条件比较苛刻，只有第二列是up，并且最后一列包含server的才能被统计。。
想用awk做的，但是条件太多了，学习不精，一时不知道如何下手。。

文件：
8:01:01 up XX- (server1)
8:02:01 up XX- (server3)
9:04:01 up XX- (test)
10:01:01 down XX- (server1)
10:21:01 up XX- (down)
10:29:11 up XX- (server2)
12:01:01 down XX- (server2)
15:01:01 up XX- (server2)


希望输出结果是：
8:00~8:30   2
8:30~9:00   0
9:00~9:30   0
9:30~10:00 0
10:00~10:30 2
10:30~11:00 0
...
...

关阴月飞

你需要统计的时间段起止是多少？  是固定的  00：00  - 23：59 ？    还是要根据文件中的时间动态生成？

jeffinier

回复 2# 关阴月飞

24小时内，就是0:00 ~23:59

关阴月飞

回复 3# jeffinier

文本里面没有现过的的时间段，是不是也要打出来？比如你举的例子里的打出来的结果就是：
00:00-00:30 0
00:31-00:59 0
01:00-01:30 0
.
.
.
23:31-23:59 0

jeffinier

回复 4# 关阴月飞

如果文本中没有出现过的时间可以不用打印，当然都打印出来也没问题。

fh21_xuejinlian

awk -F '[: ]+' '$4=="up"&&$NF~/server/{if($1<30)a[$1":00~"$1":30"]++;else a[$1":30~"$1+1":00"]++}{if($1<30)a[$1":00~"$1":30"]+=0;else a[$1":30~"$1+1":00"]+=0}END{for(i in a)print i,a[i]}'  file

关阴月飞

[root@hk-dev test]# awk '{split($1,a,":");t=a[2]>30?a[1]":31-"a[1]":59":a[1]":00-"a[1]":30";s[t]}$2=="up" && $NF ~ /server/{s[t]++}END{for(i in s)print i,+s|"sort -n" }' a
8:00-8:30 2
9:00-9:30 0
10:00-10:30 1
12:00-12:30 0
15:00-15:30 1
[root@~]# cat a
8:01:01 up XX- (server1)
8:02:01 up XX- (server3)
9:04:01 up XX- (test)
10:01:01 down XX- (server1)
10:21:01 up XX- (down)
10:29:11 up XX- (server2)
12:01:01 down XX- (server2)
15:01:01 up XX- (server2)

sunzhiguolu

8:01:01 up XX- (server1)
8:02:01 up XX- (server3)
9:04:01 up XX- (test)
10:01:01 down XX- (server1)
10:31:01 up XX- (server1)
10:35:44 up XX- (server1)
10:45:44 up XX- (server1)
10:46:44 up XX- (server1)
10:59:01 up XX- (down)
10:29:11 up XX- (server2)
12:01:01 down XX- (server2)
15:01:01 up XX- (server2)

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData = ();
   
6. while (<DATA>){
   
7.         my ($time, $ud, undef, $keys) = split;
   
8.         next if ($ud ne 'up');
   
9.         next if ($keys !~ /server/);
   
10.         my ($hours, $minutes) = split (/:/, $time);
    
11.         $hData{$hours}{int ($minutes / 30)}++;
    
12. }
    
13. 
    
14. foreach my $hh (sort {$a <=> $b} keys %hData){
    
15.         foreach my $var (0, 1){
    
16.                 my $v = $hData{$hh}{$var} // 0;
    
17.                 next if (!$v);
    
18.                 my ($mh, $mt) = (':00', ':30');
    
19.                 my $ht = $var ? $hh + 1 : $hh;
    
20.                 ($mh, $mt) = ($mt, $mh) if ($hh ne $ht);
    
21.                 print join ('-', $hh . $mh, $ht . $mt), "\t", $hData{$hh}{$var}, "\n";
    
22.         }
    
23. }
    
24. 
    
25. __DATA__
    
26. 8:01:01 up XX- (server1)
    
27. 8:02:01 up XX- (server3)
    
28. 9:04:01 up XX- (test)
    
29. 10:01:01 down XX- (server1)
    
30. 10:31:01 up XX- (server1)
    
31. 10:35:44 up XX- (server1)
    
32. 10:45:44 up XX- (server1)
    
33. 10:46:44 up XX- (server1)
    
34. 10:59:01 up XX- (down)
    
35. 10:29:11 up XX- (server2)
    
36. 12:01:01 down XX- (server2)
    
37. 15:01:01 up XX- (server2)
    

复制代码