Perl实现对源目的主机发包量的统计

点击(此处)折叠或打开

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. #5-2 count net bytes
   
7. 
   
8. use Data::Dumper;
   
9. 
   
10. my $all = "***all_machines***";
    
11. my %total_bytes;
    
12. while(<>){
    
13.     next if /^#/;
    
14.     my ($src, $dst, $bytes) = split;
    
15.     $total_bytes{$src}{$dst} += $bytes;
    
16.     $total_bytes{$src}{$all} += $bytes;
    
17. }
    
18. 
    
19. my @sources = sort {$total_bytes{$b}{$all} <=> $total_bytes{$a}{$all} } keys %total_bytes;
    
20. 
    
21. for my $src (@sources){
    
22.     my @destination = sort { $total_bytes{$src}{$b} <=> $total_bytes{$src}{$a} } keys %total_bytes;
    
23. 
    
24.     print "$src: $total_bytes{$src}{$all} total bytes sent! \n";
    
25.     for my $dst (@destination){
    
26.         
    
27.         next if $dst eq $all ;
    
28.         print "$src => $dst: ", "$total_bytes{$src}{$dst} bytes!\n";
    
29.     }
    
30.     
    
31.     print "\n";
    
32. }
    
33. 
    
34. 
    
35. print Dumper \%total_bytes;