在 *Nix 环境中提取至少 3 个会话的 IP 地址

Question

如图所示，我们有一个 IP 地址列表（请注意，128.3.* 和 131.243.*）位于我们的子网内。我们更喜欢用 Perl 来做，任何其他好的想法在 *nix 环境中都更受欢迎。

图片格式如下：

目标 IP（已排序）- Dest_Port - 源IP- Source_Port

空间用作分隔符。

我们是手动完成的，但知道我们有巨大的文件并且希望自动化此过程。

问题是我们需要得到 目标 IP 地址（不在我们的子网中，不是 128.3.* 和 131.243.*） 与至少 3 个不同的人进行过沟通 IP 地址（来源）在我们的子网内 （128.3.* 和 131.243.*）。

例如 117.72.15.207 与至少 3 个不同的

59.69.194.12 80 131.243.93.74 4492
59.79.35.247 80 131.243.94.123 1307
59.100.23.87 80 131.243.92.72 45577
*117.72.15.207 80 *131.243.92.10 451 
*117.72.15.207 80 *131.243.92.117 21071
117.72.15.207 80 131.243.92.117 21072
117.72.15.207 80 131.243.92.117 21073
*117.72.15.207 80 *131.243.92.191 9248

输出将为：

117.72.15.207 80 131.243.92.10 451 
117.72.15.207 80 131.243.92.117 21071
117.72.15.207 80 131.243.92.191 9248

如果不清楚，请发表评论。谢谢...

Answer 1

#!/usr/bin/env perl

use strict;

my %ip_lookup;
while (<DATA>) {
    my ($dest_ip, $dest_port, $source_ip, $source_port) = (split ('\s+', $_));
    $ip_lookup{$dest_ip}{$source_ip} = $_ unless $ip_lookup{$dest_ip}{$source_ip};
}

for my $dest_ip (keys %ip_lookup) {
    if (scalar(keys %{$ip_lookup{$dest_ip}}) >= 3) {
        print $_ for sort values %{$ip_lookup{$dest_ip}};
    }
}

__DATA__
9.69.194.12 80 131.243.93.74 4492
59.79.35.247 80 131.243.94.123 1307
59.100.23.87 80 131.243.92.72 45577
117.72.15.207 80 131.243.92.10 451 
117.72.15.207 80 131.243.92.117 21071
117.72.15.207 80 131.243.92.117 21072
117.72.15.207 80 131.243.92.117 21073
117.72.15.207 80 131.243.92.191 9248

在 Perl 中有几种方法可以做到这一点，但我上面发布的示例很容易解释。

首先，它读取文件的每一行（我使用的是 DATA 句柄，但它与文件的工作方式相同），然后拆分该行以获得不同的 ip、端口组合。

然后它会填充一个多级散列，除非之前已经见过这个目标 - 源 IP 组合（您创建的不同端口点）。

最后，它会排序并循环检查是否为每个目标 IP 创建了 3 个或源 IP 条目，如果是的话，则打印出该行。

这会产生输出：

117.72.15.207 80 131.243.92.10 451 
117.72.15.207 80 131.243.92.117 21071
117.72.15.207 80 131.243.92.191 9248

这就是您所需要的。