大牛求助:数组与文本的那些事

lockeyou

现有白名单:
my @white_list = qw/180.153.120.101 180.153.120.113 180.153.120.112 180.153.120.114 180.153.120.115/;
操作文件beta.log
格式为


82.147.223.175        51777        180.153.120.101        80        5
199.253.247.3        63281        180.153.120.101        80        5
5.108.221.239        54420        180.153.120.112        80        5
5.245.102.113        56341        180.153.120.112        80        5
146.251.205.200        54455        180.153.120.112        80        5
82.147.223.174        60258        180.153.120.112        80        5
60.244.63.45        53492        180.153.120.112        80        5
41.68.95.115        63476        180.153.120.112        80        5
190.148.126.65        59267        180.153.120.112        80        5
82.147.223.174        64981        180.153.120.112        80        5
182.233.73.219        58633        180.153.120.112        80        5
146.251.208.205        56394        180.153.120.112        80        5
109.161.243.124        58415        180.153.120.112        80        5
37.127.38.128        64862        180.153.120.112        80        5
82.147.223.174        51777        180.153.120.111        80        5
82.147.223.174        51133        180.153.120.112        80        5
82.147.223.174        51873        180.153.120.113        80        5
82.147.223.174        51234        180.153.120.114        80        5
82.147.223.174        51347        180.153.120.115        80        5

想要得到两个结果:
外网扫描内网的话
外网地址                交互次数    交互地址条数
82.147.223.174             30                     6
109.161.243.124     5                   1
....
内网扫描外网的话
外网地址                交互次数    交互地址条数
180.153.120.112     50              10
180.153.120.101     10               2


大概有上万条这样的数据;求大神指点     

lockeyou

#!/usr/bin/perl -w
use v5.16;
use Data:umper;

my @white_list = qw/180.153.120.101 180.153.120.112/;
my $data = 'D:\workspace\template\data.txt';
my %hash;
open IN, '<', $data or die "Can't open file: $!\n";
while (<IN> {
        chomp;
        my ($sip, $tip, $val) = (split)[0,2,4];
        if( $sip&&$tip ~~ @white_list){
                say $sip." ".$tip." ".$val;       
        }
        if(($sip|$tip) ~~ @white_list){
                say $sip." ".$tip." ".$val;
                $hash{$sip}{$tip}{'count'}++;
        $hash{$sip}{$tip}{'sum'} += $val;
        }
}

貌似做不下去了,艾玛

rubyish

biru:

1. #!/usr/bin/perl -w
   
2. 
   
3. use 5.016;
   
4. 
   
5. my @white_list = qw/180.153.120.101
   
6.   180.153.120.113
   
7.   180.153.120.112
   
8.   180.153.120.114
   
9.   180.153.120.115/;
   
10. 
    
11. my %white_list = map { $_, 1 } @white_list;
    
12. my ( %sip, %tip );
    
13. 
    
14. while (<DATA>) {
    
15.     my ( $sip, $tip, $val ) = (split)[ 0, 2, 4 ];
    
16. 
    
17.     # if 只 计算 第三列 in 白名单
    
18.     # 第三列 not in 白名单 不计算
    
19.     # add this line
    
20. 
    
21.     next unless exists $white_list{$tip};
    
22. 
    
23.     # else delete it
    
24. 
    
25.     $sip{$sip}{$tip} += $val;
    
26.     $tip{$tip}{$sip} += $val;
    
27. }
    
28. 
    
29. sub Print {
    
30.     my ( $file, $hash ) = @_;
    
31.     open my $fh, '>', $file or die "$file $!";
    
32.     while ( my ( $k, $v ) = each $hash ) {
    
33.         my ( $address, $times );
    
34.         map { $times += $v->{$_}; $address++ } keys $v;
    
35.         say $fh join "\t", $k, $times, $address;
    
36.     }
    
37. }
    
38. 
    
39. Print 'sip.txt', \%sip;
    
40. Print 'tip.txt', \%tip;
    
41. 
    
42. __DATA__
    
43. 82.147.223.175        51777        180.153.120.101        80        5
    
44. 199.253.247.3        63281        180.153.120.101        80        5
    
45. 5.108.221.239        54420        180.153.120.112        80        5
    
46. 5.245.102.113        56341        180.153.120.112        80        5
    
47. 146.251.205.200        54455        180.153.120.112        80        5
    
48. 82.147.223.174        60258        180.153.120.112        80        5
    
49. 60.244.63.45        53492        180.153.120.112        80        5
    
50. 41.68.95.115        63476        180.153.120.112        80        5
    
51. 190.148.126.65        59267        180.153.120.112        80        5
    
52. 82.147.223.174        64981        180.153.120.112        80        5
    
53. 182.233.73.219        58633        180.153.120.112        80        5
    
54. 146.251.208.205        56394        180.153.120.112        80        5
    
55. 109.161.243.124        58415        180.153.120.112        80        5
    
56. 37.127.38.128        64862        180.153.120.112        80        5
    
57. 82.147.223.174        51777        180.153.120.111        80        5
    
58. 82.147.223.174        51133        180.153.120.112        80        5
    
59. 82.147.223.174        51873        180.153.120.113        80        5
    
60. 82.147.223.174        51234        180.153.120.114        80        5
    
61. 82.147.223.174        51347        180.153.120.115        80        5
    

复制代码

lockeyou

感谢大牛02:40多的回复,太感谢您了回复 3# rubyish