工作总结--ip地址在perl中的各类应用

1.1.1.1 255.255.255.252 => 1.1.1.1/30:

my ($ip,$mask)= @_;$mask = sprintf("%b%b%b%b",(split /\./, $mask));my $temp = $mask =~ s/1/1/g;$temp = 0 if(!defined $temp || $temp eq '');my $maskip = $ip."/".$temp;return ($maskip);

1.1.1.1/30 => 1.1.1.1 255.255.255.252:

my ($maskip) = @_;my ($ip, $mask) = split m{/}xms, $maskip;$maskip = $ip.' '.join '.', unpack 'C*', pack 'B32', 1 x $mask;return ($maskip);

根据掩码获取起始和终止ip地址（网络和广播）：

my ($ip,$mask) = @_;my $bin_ip;my $bin_mask;map { $bin_ip .= substr(unpack("B32",pack("N",$_)) , -8);} split (/\./,$ip);map { $bin_mask .= substr(unpack("B32",pack("N",$_)) , -8);} split (/\./,$mask);my $hostipbbit = 32 - index($bin_mask,"0");return 0 if($hostipbbit >= 32);my $network = $bin_ip & $bin_mask;my $convnetwork=oct('0b'.$network);my $startconvip = $convnetwork;my $endconvip = $convnetwork+2**$hostipbbit-1;my $bin_startip = unpack("B32",pack("N",$startconvip));$startip = sprintf ("%d.%d.%d.%d",oct('0b'.substr($bin_startip,0,8)),oct('0b'.substr($bin_startip,8,8)),oct('0b'.substr($bin_startip,16,8)),oct('0b'.substr($bin_startip,24)));my $bin_endip = unpack("B32",pack("N",$endconvip));$endip = sprintf ("%d.%d.%d.%d",oct('0b'.substr($bin_endip,0,8)),oct('0b'.substr($bin_endip,8,8)),oct('0b'.substr($bin_endip,16,8)),oct('0b'.substr($bin_endip,24)));return ($startip,$endip);

设备ACl转换ip映射：
1、
acl extend number 100
  rule 2 permit ip any  18.8.2.92 0.0.0.3
  rule 3 permit ip any  18.8.2.48 0.0.0.7
  rule 4 permit ip any  18.8.2.08 0.0.0.7
  rule 5 permit ip any  18.8.2.16 0.0.0.7
2、
access-list 121 permit ip 60.3.9.1 0.0.0.7 any

sub Ip_ACL{    my ($aclno,$ip,$any,$Ref,$rule) = @_; #rule可有可无    my $any_bin = sprintf("%08b%08b%08b%08b", ( split /\./, $any));    my $ip_bin = sprintf("%08b%08b%08b%08b", ( split /\./, $ip));    my $Tmp_bin = sprintf("%32b", (oct("0b".$any_bin) ^ (2**32)));    my $hostipbbit = 32 - index($Tmp_bin,"0");    if($hostipbbit >= 32)    {        if($rule ne '')        {            $Ref->{$ip}{'Role'} = $rule;            &Debug("$ip Role: $Ref->{$ip}{'Role'} \n", 0);        }        $Ref->{$ip}{'AclSeq'} = $aclno;        &Debug("$ip AclSeq: $Ref->{$ip}{'AclSeq'} \n", 0);        return 0;    }    my $network = $ip_bin & $Tmp_bin;    my $convnetwork=oct('0b'.$network);    my $i = 0;    for ($i; $i < 2**$hostipbbit; $i ++)    {        my $convip = $convnetwork+$i;        my $bin_startip = unpack("B32",pack("N",$convip));        $ip = sprintf ("%d.%d.%d.%d",oct('0b'.substr($bin_startip,0,8)),oct('0b'.substr($bin_startip,8,8)),oct('0b'.substr($bin_startip,16,8)),oct('0b'.substr($bin_startip,24)));        if($rule ne '')        {            $Ref->{$ip}{'Role'} = $rule;            &Debug("$ip Role: $Ref->{$ip}{'Role'} \n", 0);        }        $Ref->{$ip}{'AclSeq'} = $aclno;        &Debug("$ip AclSeq: $Ref->{$ip}{'AclSeq'} \n", 0);    }    return 0;}

获取全部ip：

sub Ip_ANY{    my ($ip,$mask,$Ref,$para2) = @_;    my ($bin_ip,$bin_mask);    map {$bin_ip .= substr(unpack("B32",pack("N",$_)) , -8);} split (/\./,$ip);    map {$bin_mask .= substr(unpack("B32",pack("N",$_)) , -8);} split (/\./,$mask);    my $binwork = $bin_ip & $bin_mask;    my $convnetwork=oct('0b'.$binwork);    my $hostipbbit = 32 - index($bin_mask,"0");    return 0 if($hostipbbit > 10);    my $i = 0;    for ($i; $i < 2**$hostipbbit; $i ++)    {        my $convip = $convnetwork+$i;        my $bin_startip = unpack("B32",pack("N",$convip));        $ip = sprintf ("%d.%d.%d.%d",oct('0b'.substr($bin_startip,0,8)),oct('0b'.substr($bin_startip,8,8)),oct('0b'.substr($bin_startip,16,8)),oct('0b'.substr($bin_startip,24)));        $Ref->{$ip} = $para2;        &Debug("$ip IP: $Ref->{$ip} \n", 0);    }    return 0;}