请教一个shell高深的问题！跪谢！

ansanchen

不是 我要从apnic寻找网通和电信的IP分类。但是他们没有把IP合并。
我现在就是需要合并一下。比如，他仅仅是告诉我2个B和另外2个B分给电信，其实这4个B是连续的。
只不过不同时间分配的。所以就分开了。

我现在要把连续的几个B或者几个C合并！

ansanchen

商业气息？我觉得这个应该不复杂，小弟脑子比较迟钝~~赫赫。
excel搞不定吧？
不懂~

xlink

原帖由 ansanchen 于 2006-4-12 22:59 发表
不是 我要从apnic寻找网通和电信的IP分类。但是他们没有把IP合并。
我现在就是需要合并一下。比如，他仅仅是告诉我2个B和另外2个B分给电信，其实这4个B是连续的。
只不过不同时间分配的。所以就分开了。

我现 ...

程序能做的，仅仅是有规律的事，你首先把规律描述清楚。

你的问题不太难，难的是别人不明白你想干什么。

你尽量描述，这里高手很多。只要你说清楚问题，3分钟之内就会有答案了（我不一定行的）。

xlink

原帖由 ansanchen 于 2006-4-12 23:00 发表
商业气息？我觉得这个应该不复杂，小弟脑子比较迟钝~~赫赫。
excel搞不定吧？
不懂~

呵呵，excel比shell强大多了，也不难学。

ansanchen

我想想怎么描述，明天我再贴出来。

谢谢了！！：）

ansanchen

大概意思就是，我需要把连续IP合并，并以掩码形式表示出来！
谁能帮我！！谢谢了！！

creat7151

LZ是想按掩码位数分类吗？

ansanchen

赫赫 看来我还是没说清楚！小学语文不太好，大家见谅！我的意思是 比如现在有两个2B 那就可以合并成4个B。但是前提是这2个2个B的IP是连续的 可以合成4个B

r2007

将 1.2.3.4/24规范为 1.2.3.0/24
然后按ip倒排序送给awk处理

取每条记录 如1.2.3.0/24，算出1.2.3.0/23的规范格式，如果h不空则和h比较（如不同首先打印h，然后比较1.2.3.0/24和1.2.3.0/23的地址部分，相同则打印1.2.3.0/24，否则h=1.2.3.0/23），如相同则规范1.2.3.0/22，如1.2.3.0/23和 1.2.3.0/22地址部分相同，则打印1.2.3.0/23，否则 h=1.2.3.0/22的规范格式。

slash001

用perl给你写了一个，代码如下

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. 
   
6. sub main
   
7. {
   
8.         my $ipaddr = "0.0.0.0";       
   
9.         my $old_ip = "0.0.0.0";
   
10. 
    
11.         open(F, "ip_list.txt");
    
12.         while (<F>)
    
13.         {
    
14.                 my $line = $_;
    
15.                 chomp($line);
    
16.                 my @data = split(/\//, $line);
    
17.                 my @ip = ipaddressCalc($data[0], bit2mask($data[1]));
    
18.                
    
19.                 if (testIpNext($old_ip, $ip[0]) == 0)
    
20.                 {
    
21.                         if ($ipaddr ne "0.0.0.0")
    
22.                         {
    
23.                                 print "$ipaddr/" . calcBit($ipaddr, $old_ip) . "\n";
    
24.                         }
    
25.                        
    
26.                         $ipaddr = $ip[0];
    
27.                 }
    
28.                 $old_ip = $ip[1];
    
29.         }
    
30. 
    
31.         if ($ipaddr ne "0.0.0.0")
    
32.         {
    
33.                 print "$ipaddr/" . calcBit($ipaddr, $old_ip) . "\n";
    
34.         }
    
35.         close(F);
    
36. }
    
37. 
    
38. sub ipaddressCalc
    
39. {       
    
40.         my ($ip, $mask) = @_;
    
41.         my $netip = "";
    
42.         my $broadcastip = "";
    
43.         my @splitIp = split(/\./, $ip);
    
44.         my @splitMask = split(/\./, $mask);
    
45. 
    
46.         for (my $i = 0; $i < 4; $i++)
    
47.         {
    
48.                 $netip .= $splitMask[$i] == 255 ? $splitIp[$i] : ($splitIp[$i] & $splitMask[$i]);
    
49.                 $broadcastip .= $splitMask[$i] == 255 ? $splitIp[$i] : (255 - $splitMask[$i]) + ($splitIp[$i] & $splitMask[$i]);
    
50.                  
    
51.                 if ($i != 3)
    
52.                 {
    
53.                         $netip .= ".";
    
54.                         $broadcastip .= ".";
    
55.                 }
    
56.         }
    
57.         return $netip, $broadcastip;
    
58. }
    
59. 
    
60. sub bit2mask
    
61. {
    
62.         my ($bit) = shift;
    
63.         my $str_bit = 1 x $bit . 0 x (32 - $bit);
    
64.         my $mask = "";
    
65. 
    
66.         for (my $i = 0; $i < 4; $i++)
    
67.         {
    
68.                 my $segment = substr($str_bit, $i*8, 8);
    
69.                 $segment =~ s/(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)/$1*128+$2*64+$3*32+$4*16+$5*8+$6*4+$7*2+$8*1/;
    
70.                 $mask .= $mask eq "" ? eval("$segment") : "." . eval("$segment");
    
71.         }
    
72. 
    
73.         return $mask;
    
74. }
    
75. 
    
76. sub calcBit
    
77. {
    
78.         my ($b_addr, $e_addr) = @_;
    
79.         my @b_addrs = split(/\./, $b_addr);
    
80.         my @e_addrs = split(/\./, $e_addr);
    
81.         my $b_bin = sprintf("%08b%08b%08b%08b", $b_addrs[0], $b_addrs[1], $b_addrs[2], $b_addrs[3]);
    
82.         my $e_bin = sprintf("%08b%08b%08b%08b", $e_addrs[0], $e_addrs[1], $e_addrs[2], $e_addrs[3]);
    
83.         my $bit = 0;
    
84.         for (my $i = 0; $i < 32; $i++)
    
85.         {
    
86.                 return $bit if (substr($b_bin, $i, 1) != substr($e_bin, $i, 1));
    
87.                 $bit++;
    
88.         }
    
89.         return 32;
    
90. }
    
91. 
    
92. sub testIpNext
    
93. {
    
94.         my ($f_ip, $n_ip) = @_;
    
95.         my @f_ips = split(/\./, $f_ip);
    
96.         my @n_ips = split(/\./, $n_ip);
    
97.         my $flag = 1;
    
98.        
    
99.         for (my $i = 3; $i >= 0; $i--)
    
100.         {
     
101.                 if ($flag == 1 and ($f_ips[$i] + 1) > 255)
     
102.                 {
     
103.                         $flag = 1;
     
104.                         $f_ips[$i] = 0;
     
105.                 }
     
106.                 elsif ($flag == 1 and ($f_ips[$i] + 1) <= 255)
     
107.                 {
     
108.                         $flag = 0;
     
109.                         $f_ips[$i] += 1;
     
110.                 }
     
111.         }
     
112. 
     
113.         return 1 if (sprintf("%03d%03d%03d%03d", @f_ips) == sprintf("%03d%03d%03d%03d", @n_ips));
     
114.         return 0;
     
115. }
     
116. 
     
117. main();
     
118. 
     

复制代码

其中ip_list.txt是你保存ip列表的文件名

[ 本帖最后由 slash001 于 2006-4-13 15:15 编辑 ]