求腳本（給定IP地址和位數(shù)，遍歷出可用IP地址）

zbs168

需要一段function，用于根據(jù)給定的IP地址和位數(shù)，返回可用的IP地址，例如：
傳遞參數(shù)為192.168.1.0/24，能夠得到數(shù)組a，a里面是192.168.1.1-192.168.1.254
192.168.1.128/25，得到的是數(shù)組a是192.168.1.129-192.168.1.254


請廣大awk高手不吝賜教

laohuanggua

看不懂。那個數(shù)組a是不是要輸出的東西？

如果原來就有數(shù)據(jù)，那么初始值是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

看不懂。那個數(shù)組a是不是要輸出的東西？

如果原來就有數(shù)據(jù)，那么初始值是192.168.1.X。其中x=1~254么？
...
laohuanggua 發(fā)表于 2010-03-12 20:21

   不好意思，我沒說清楚
比如我求的腳本是function getip(ip)
那么我在bash中使用getip(192.168.1.0/24)，能給我返回一個數(shù)組a，這個數(shù)組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)，返回的數(shù)組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
蘭花仙子 發(fā)表于 2010-03-12 21:07

    十分感謝您的回復，但是我對perl實在不熟，這邊也沒有perl的環(huán)境，實在不好意思，我求個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

將輸出賦值給數(shù)組，但是這只針對c網(wǎng)的，對子網(wǎng)劃分，知道的不多。

cxfcxf

cpan
> install Net::CIDR::Set

perl壞境還是很好用的..