求脚本（给定IP地址和位数，遍历出可用IP地址）

zbs168

需要一段function，用于根据给定的IP地址和位数，返回可用的IP地址，例如：
传递参数为192.168.1.0/24，能够得到数组a，a里面是192.168.1.1-192.168.1.254
192.168.1.128/25，得到的是数组a是192.168.1.129-192.168.1.254


请广大awk高手不吝赐教

laohuanggua

看不懂。那个数组a是不是要输出的东西？

如果原来就有数据，那么初始值是192.168.1.X。其中x=1~254么？

要求得到的最后结果又是什么？

xiaobaibbb

perl

兰花仙子

$ cat ip.pl

1. #!/usr/bin/perl
   
2. use strict;
   
3. use Net::CIDR::Set;
   
4. 
   
5. my $cidr = shift || die "$0 x.x.x.x/x\n";
   
6. my $set = Net::CIDR::Set->new($cidr);
   
7. print $set->as_range_array(2),"\n";

复制代码

$ perl ip.pl 192.168.1.0/24
192.168.1.0-192.168.1.255

laohuanggua

Net::CIDR::Set---是不是需要手动安装一个库？如何查询得到这个库的名字？

zbs168

看不懂。那个数组a是不是要输出的东西？

如果原来就有数据，那么初始值是192.168.1.X。其中x=1~254么？
...
laohuanggua 发表于 2010-03-12 20:21

   不好意思，我没说清楚
比如我求的脚本是function getip(ip)
那么我在bash中使用getip(192.168.1.0/24)，能给我返回一个数组a，这个数组a里面是(192.168.1.1,192.168.1.2,192.168.1.3,192.168.1.4......,192.168.1.254)这种的
使用getip(192.168.1.1/25)，返回的数组a是(192.168.1.1,192.168.1.2,192.168.1.3,192.168.1.4......,192.168.1.126)
还请不吝赐教

zbs168

$ cat ip.pl$ perl ip.pl 192.168.1.0/24
192.168.1.0-192.168.1.255
兰花仙子 发表于 2010-03-12 21:07

    十分感谢您的回复，但是我对perl实在不熟，这边也没有perl的环境，实在不好意思，我求个bash shell吧
再次感谢您的赐教

iori809

PERL的斑竹都来啦呵呵~ CUER都是热心肠啊~

zhujinzz

#!/bin/bash

ip=$1
NK=`echo $ip | awk -F\/ '{print $2}'`
IP_LAST=`echo $ip | awk -F\/ '{print $1}' | awk -F\. '{print $4}'`

if ($IP_LAST -le 12;then
        NUM=$(($((2**$((32-$NK))))-2))
else
        NUM=254
fi

for i in `seq $(($IP_LAST+1)) $NUM`
    do
        echo 192.168.1.$i
    done

将输出赋值给数组，但是这只针对c网的，对子网划分，知道的不多。

cxfcxf

cpan
> install Net::CIDR::Set

perl坏境还是很好用的..