Chinaunix

标题: awk先按掉包率排序，然后取ping平均值 [打印本页]
作者: linuxbody    时间: 2017-02-14 14:22
标题: awk先按掉包率排序，然后取ping平均值
  1. PING 1.1.1.1 (1.1.1.1) 56(84) bytes of data.

  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.

  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.

  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.

  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.

  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

  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%

  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%

  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    时间: 2017-02-14 15:59
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  5. local $/ = '';
  6. my @aData = ();
  7. while (<DATA>){
  8.         my @aT = grep (length, /-\s(\S+)|\d+(?=%)|\/(\d[^\/]+)\S+/g);
  9.         push (@aData, \@aT);
  10. }

  12. foreach (sort {$a->[1] <=> $b->[1] or $a->[-1] cmp $b->[-1]} @aData){
  13.         print @{$_}[0], "\n";
  14. }

  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.

  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.

  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.

  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.

  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    时间: 2017-02-14 16:49
回复 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





欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2