awk先按掉包率排序，然后取ping平均值

linuxbody

1. PING 1.1.1.1 (1.1.1.1) 56(84) bytes of data.
   
2. 
   
3. --- 1.1.1.1 ping statistics ---
   
4. 5 packets transmitted, 5 received, 0% packet loss, time 0ms
   
5. rtt min/avg/max/mdev = 151.804/151.816/151.824/0.246 ms, pipe 5
   
6. PING 2.2.2.2 (2.2.2.2) 56(84) bytes of data.
   
7. 
   
8. --- 2.2.2.2 ping statistics ---
   
9. 5 packets transmitted, 4 received, 50% packet loss, time 0ms
   
10. rtt min/avg/max/mdev = 155.287/155.289/155.292/0.002 ms, pipe 5
    
11. PING 3.3.3.3 (3.3.3.3) 56(84) bytes of data.
    
12. 
    
13. --- 3.3.3.3 ping statistics ---
    
14. 5 packets transmitted, 5 received, 80% packet loss, time 0ms
    
15. rtt min/avg/max/mdev = 170.732/170.737/170.740/0.452 ms, pipe 5
    
16. PING 4.4.4.4 (4.4.4.4) 56(84) bytes of data.
    
17. 
    
18. --- 4.4.4.4 ping statistics ---
    
19. 5 packets transmitted, 5 received, 30% packet loss, time 0ms
    
20. rtt min/avg/max/mdev = 168.053/168.070/168.076/0.259 ms, pipe 5
    
21. PING 5.5.5.5 (5.5.5.5) 56(84) bytes of data.
    
22. 
    
23. --- 5.5.5.5 ping statistics ---
    
24. 5 packets transmitted, 5 received, 0% packet loss, time 0ms
    
25. rtt min/avg/max/mdev = 166.926/166.936/166.942/0.365 ms, pipe 5
    
26. 
    
27. 取出数据：
    
28. 1.1.1.1 151.816 0%
    
29. 2.2.2.2 155.289 30%
    
30. 3.3.3.3 170.737 80%
    
31. 4.4.4.4 168.070 30%
    
32. 5.5.5.5 166.936 0%
    
33. 
    
34. 排序
    
35. 1.1.1.1 151.816 0%
    
36. 5.5.5.5 166.936 0%
    
37. 2.2.2.2 155.289 30%
    
38. 4.4.4.4 168.070 30%
    
39. 3.3.3.3 170.737 80%
    
40. 
    
41. 怎么得到这个结果
    
42. 1.1.1.1
    
43. 5.5.5.5
    
44. 2.2.2.2
    
45. 4.4.4.4
    
46. 3.3.3.3

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $/ = '';
   
6. my @aData = ();
   
7. while (<DATA>){
   
8.         my @aT = grep (length, /-\s(\S+)|\d+(?=%)|\/(\d[^\/]+)\S+/g);
   
9.         push (@aData, \@aT);
   
10. }
    
11. 
    
12. foreach (sort {$a->[1] <=> $b->[1] or $a->[-1] cmp $b->[-1]} @aData){
    
13.         print @{$_}[0], "\n";
    
14. }
    
15. 
    
16. __DATA__
    
17. --- 1.1.1.1 ping statistics ---
    
18. 5 packets transmitted, 5 received, 0% packet loss, time 0ms
    
19. rtt min/avg/max/mdev = 151.804/151.816/151.824/0.246 ms, pipe 5
    
20. PING 2.2.2.2 (2.2.2.2) 56(84) bytes of data.
    
21. 
    
22. --- 2.2.2.2 ping statistics ---
    
23. 5 packets transmitted, 4 received, 50% packet loss, time 0ms
    
24. rtt min/avg/max/mdev = 155.287/155.289/155.292/0.002 ms, pipe 5
    
25. PING 3.3.3.3 (3.3.3.3) 56(84) bytes of data.
    
26. 
    
27. --- 3.3.3.3 ping statistics ---
    
28. 5 packets transmitted, 5 received, 80% packet loss, time 0ms
    
29. rtt min/avg/max/mdev = 170.732/170.737/170.740/0.452 ms, pipe 5
    
30. PING 4.4.4.4 (4.4.4.4) 56(84) bytes of data.
    
31. 
    
32. --- 4.4.4.4 ping statistics ---
    
33. 5 packets transmitted, 5 received, 30% packet loss, time 0ms
    
34. rtt min/avg/max/mdev = 168.053/168.070/168.076/0.259 ms, pipe 5
    
35. PING 5.5.5.5 (5.5.5.5) 56(84) bytes of data.
    
36. 
    
37. --- 5.5.5.5 ping statistics ---
    
38. 5 packets transmitted, 5 received, 0% packet loss, time 0ms
    
39. rtt min/avg/max/mdev = 166.926/166.936/166.942/0.365 ms, pipe 5

复制代码

perl abc.pl
------------------------
1.1.1.1
2.2.2.2
5.5.5.5
4.4.4.4
3.3.3.3

jason680

回复 1# linuxbody

$ awk '/^PING/{ip=$2}/packet loss/{k=sprintf("%03d",$6);a[k]=a[k]ip"\n"}END{t=asorti(a,b);for(n=1;n<=t;++n)printf a[b[n]]}' FILE
1.1.1.1
5.5.5.5
4.4.4.4
2.2.2.2
3.3.3.3