shell计算网段计算机个数

lovesaka

1. 
   
2. perl -ne '$tmp=$_;s/\b[0]([1-9]\d)/\1/g;s/(\d+)\.(\d+).(\d+)\.(\d+)[\W]+(\d+)\.(\d+)\.(\d+)\.(\d+)/((\5-\1+1)*(\6-\2+1)*(\7-\3+1)*(\8-\4+1))/;$_=eval $_;$tmp=~s/[\s-].*/ $_/;print $tmp' a.txt
   

复制代码

结果

1. 
   
2. 218.022.121.000 1792
   
3. 218.022.128.000 4096
   
4. 058.060.000.000 49152
   
5. 058.061.096.000 40960
   
6. 058.062.000.000 16384
   
7. 058.062.064.000 4096
   
8. 058.062.080.000 -11152    这行有问题
   
9. 058.063.038.144 6496
   
10. 
    
11. 
    
12. ((218-218+1)*(22-22+1)*(127-121+1)*(255-000+1))
    
13. 218.022.121.000 1792
    
14. ((218-218+1)*(22-22+1)*(143-128+1)*(255-000+1))
    
15. 218.022.128.000 4096
    
16. ((58-58+1)*(61-60+1)*(95-000+1)*(255-000+1))
    
17. 058.060.000.000 49152
    
18. ((58-58+1)*(61-61+1)*(255-96+1)*(255-000+1))
    
19. 058.061.096.000 40960
    
20. ((58-58+1)*(62-62+1)*(63-000+1)*(255-000+1))
    
21. 058.062.000.000 16384
    
22. ((58-58+1)*(62-62+1)*(79-64+1)*(255-000+1))
    
23. 058.062.064.000 4096
    
24. ((58-58+1)*(63-62+1)*(38-80+1)*(135-000+1))    问题出在借位上这个如果要完美点那就不是这几句了
    
25. 058.062.080.000 -11152
    
26. ((58-58+1)*(63-63+1)*(95-38+1)*(255-144+1))
    
27. 058.063.038.144 6496
    

复制代码

另外给出AWK的那位兄弟代码域分界可能和你的要求不一样改一改就能用了我的麻烦些不过都解决不了上面那个借位问题

[ 本帖最后由 lovesaka 于 2006-10-23 14:17 编辑 ]

frankzh

[quote]原帖由 lovesaka 于 2006-10-23 14:11 发表

1. 
   
2. perl -ne '$tmp=$_;s/\b[0]([1-9]\d)/\1/g;s/(\d+)\.(\d+).(\d+)\.(\d+)[\W]+(\d+)\.(\d+)\.(\d+)\.(\d+)/((\5-\1+1)*(\6-\2+1)*(\7-\3+1)*(\8-\4+1))/;$_=eval $_;$tmp=~s/[\s-].*/ $_/;print $tmp' a.t ... [/quote]
   
3. 
   
4. 
   
5. 谢谢你的帮助 不过还是有一个是负数的 请你看看我的运行结果
   
6. 
   
7. [code]
   
8. [root@aorta test]# sh test1.sh
   
9. 218.022.121.000 1792
   
10. 218.022.128.000 4096
    
11. 058.060.000.000 49152
    
12. 058.061.096.000 40960
    
13. 058.062.000.000 16384
    
14. 058.062.064.000 4096
    
15. 058.062.080.000 -11152
    
16. 058.063.038.144 6496
    
17. 
    

复制代码

frankzh

原帖由 lovesaka 于 2006-10-23 14:11 发表
[code]
perl -ne '$tmp=$_;s/\b[0]([1-9]\d)/\1/g;s/(\d+)\.(\d+).(\d+)\.(\d+)[\W]+(\d+)\.(\d+)\.(\d+)\.(\d+)/((\5-\1+1)*(\6-\2+1)*(\7-\3+1)*(\8-\4+1))/;$_=eval $_;$tmp=~s/[\s-].*/ $_/;print $tmp' a.t ...

我刚刚用 AWK的那位兄弟代码域分界改一改就能用  不过出现的是一样的结果 有 负数

awk就是awp加ak

哦，酱紫啊

awk就是awp加ak

也好办，你等等

awk就是awp加ak

压，不行，呵呵

awk就是awp加ak

1. awk -F'[. -]' '
   
2. {
   
3.         counts1 = 0; counts2 = 0;
   
4.         for (i = 3; i >= 0; i--){
   
5.                 counts1 = counts1 * 256 + $(NF-i);
   
6.                 counts2 = counts2 * 256 + $(4-i);
   
7.         }
   
8.     print $1"."$2"."$3"."$4, counts1 - counts2 + 1;
   
9. }' urfile

复制代码

awk就是awp加ak

原本以为这样可以，后来一想是不对的

awk就是awp加ak

当我欠你的了。。试一下这个，不行再说

1. awk -F'[. -]' '
   
2. {
   
3.         counts = 1;
   
4. 
   
5.         for (i = 3; i >= 0; i--){
   
6.                 counts1[i] = $(NF-i);
   
7.                 counts2[i] = $(4-i);
   
8.         }
   
9. 
   
10.         for (i = 0; i < 4; i++) if (counts1[i] < counts2[i]){ counts1[i+1]--; counts1[i] += 256; }
    
11.         for (i = 0; i < 4; i++) counts *= (counts1[i] - counts2[i] + 1);
    
12. 
    
13.         print $1"."$2"."$3"."$4, counts;
    
14. }' urfile

复制代码

frankzh

[quote]原帖由 awk就是awp加ak 于 2006-10-23 17:46 发表
当我欠你的了。。试一下这个，不行再说

1. awk -F'[. -]' '
   
2. {
   
3.         counts = 1;
   
4. 
   
5.         for (i = 3; i >= 0; i--){
   
6.                 counts1[i] = $(NF-i);
   
7.                 counts2[i] = $(4-i);
   
8.         }
   
9. 
   
10.         for (i = 0; i < 4; i++) if (c ... [/quote]
    
11. 
    
12. 
    
13. 
    
14. 
    
15. 
    
16. 
    
17. 
    
18. [code]
    
19. 谢谢你热心的帮助
    
20. 运行结果如下：
    
21. [root@root test]# cat a
    
22. 060.166.000.000 060.166.255.255                  
    
23. 060.167.000.000 060.167.127.255                  
    
24. 060.167.128.000 060.169.255.255            
    
25. 060.170.000.000 060.170.127.255                  
    
26. 060.170.128.000 060.170.255.255            
    
27. 060.171.000.000 060.171.063.255  
    

复制代码

1. 
   
2. [root@root test]# cat test.sh
   
3. #!/bin/bash
   
4. awk -F'[. -]' '
   
5. {
   
6.         counts = 1;
   
7. 
   
8.         for (i = 3; i >= 0; i--){
   
9.                 counts1[i] = $(NF-i);
   
10.                 counts2[i] = $(4-i);
    
11.         }
    
12. 
    
13.         for (i = 0; i < 4; i++) if (counts1[i] < counts2[i]){ counts1[i+1]--; counts1[i] += 256; }
    
14.         for (i = 0; i < 4; i++) counts *= (counts1[i] - counts2[i] + 1);
    
15. 
    
16.         print $1"."$2"."$3"."$4, counts;
    
17. }' a
    
18. 
    
19. 
    

复制代码

1. 
   
2. [root@root test]# sh test.sh
   
3. 060.166.000.000 1160570880
   
4. 060.167.000.000 1147675648
   
5. 060.167.128.000 573837824
   
6. 060.170.000.000 1108989952
   
7. 060.170.128.000 554494976
   
8. 060.171.000.000 1096094720
   

复制代码

ip数太夸张了吧？ 呵呵 上亿？ a文件的这些ip段只是国内安徽省的ip

是不是我那里出错了么？

[ 本帖最后由 frankzh 于 2006-10-23 18:48 编辑 ]