发到perl版来求助 文本中的IP地址插入类别信息

sullybear

求教：
一个文本充斥着大量IP地址（IP地址的位置也不固定），相把IP地址的相关分类  插到IP地址的后面

如a b c 8.8.8.8  2.2.2.2  d
更改为  a b c 8.8.8.8 谷歌  2.2.2.2 未知  d

分类的依据为配置文件
set
谷歌
8.8.8.0-8.8.8.255
（可能有多行）
有多个分类名称
如果不能匹配，则标记未知

请教如何实现

mcshell

回复 1# sullybear


    多发些文本来测试下，你的意思的属于这个自网的，然后查询后面的所属地，在输出 是这个意思吧。

104359176

这个问题要分成三部分来处理：

1. 将 IP 地址分离出来
2. 按照 IP 地址分类建立 IP地址 =》类别 查询散列
3. 按照查询散列，将原文中的 IP 地址替换掉

1. 分离 IP 地址，用 Regexp::Common 模块中的 IP 地址正则表达式。

2. 根据不同类别建立 正则表达式散列。例如：'8\.8\.8.[0-9]+' => 'google',

3. 按照生成的查询散列对原文进行替换：

{
    '8.8.8.8' => 'google',
    ....
}

sullybear

回复 2# mcshell


    被测文本：
a  b  c  1  2   8.8.8.8  c 56
1.2.3.4 3 5 t  114.114.114.114


配置文件
美国
1.0.0.0-1.255.255.255  
2.0.0.0-7.255.255.255

谷歌
8.0.0.0-8.255.255.255
9.0.0.0-9.255.255.255

江苏
114.114.0.0-114.114.114.114

类似这种，希望输出

a  b  c  1  2   8.8.8.8  谷歌  c 56
1.2.3.4 美国 3 5 t  114.114.114.114  江苏

mcshell

没有网络号，或者子网掩码，无法判断是那个段的吧。
这样写出来，只能枚举出所有IP地址，然后判断是否包含