[PERL] 檢查IP是否在某個網段內：matchcidr @新精讚

[無邊框]

908

[PERL] 檢查IP是否在某個網段內：matchcidr

“

檢查IP是否在某個網段內 matchcidr in perl

„

分享此文連結 //n.sfs.tw/10672

分享連結 [PERL] 檢查IP是否在某個網段內：matchcidr@新精讚

(文章歡迎轉載，務必尊重版權註明連結來源)

2019-10-22 09:36:13 最後編修

2017-01-24 08:28:17 By 張○○

在PERL中有沒有像PHP matchcidr的函式？沒有所以自己寫：

下面的程式檢查你的$ip=163.17.147.1有沒有在你指定的陣列@mysch_ips中

#!/usr/bin/perl -w
use strict;
use Net::IPv4Addr qw( :all );
my( @mysch_ips)= ("163.17.32.0/19","163.17.88.0/21","163.17.96.0/22","163.17.108.0/22",
"163.17.112.0/20","163.17.128.0/23","163.17.130.0/24","163.17.146.0/23",
"163.17.148.0/22","163.17.152.0/21","163.17.160.0/19","163.17.192.0/18");

my $ip="163.17.147.1";
foreach(@mysch_ips){
    if (ipv4_in_network( $_, $ip ) ) {
        print "Welcome !";
    }
}

--
不使用模組的方法來解決這個問題

sub matchcidr{
    local $addr= shift;
    local $cidr= shift;
    local ($ip, $prefix) = split('/', $cidr);
    $prefix= 32 if !$prefix;
    local $mask = '1' x $prefix . '0' x (32-$prefix);
    foreach(@seg){
      $ipbin .= &dec2bin($_);
    }
    if( (&ip2bin($addr)& $mask) eq  (&ip2bin($ip)& $mask) ){
      return 1;
    }else {
      return 0;
    }
}

sub ip2bin {
  local $ip=shift;
  local @seg = split('\.',$ip);
  local $ipbin ="";
  foreach(@seg){
      $ipbin .= &dec2bin($_);
  }
  return $ipbin;
}


sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    return  sprintf("%08d",$str);
}

叫用

matchcidr( IP, CIDR);

回傳

在CIDR範圍中回傳1，否則回傳0

叫用範例

print &matchcidr('1.2.4.4','1.2.3.0/25'); # 0

print &matchcidr('1.2.3.4','1.2.3.0/25'); # 1

print &matchcidr('1.2.3.4','1.2.3.0'); # 0 未指定 prefix，則比對IP本身是否相同

說明

第6行把CIDR位址中的prefix轉成二進位的字串，作為遮罩，這裡使用PERL獨有的重覆運算子 'x'
第10行將轉成二進位字串的兩個位址進行 and 運算，兩者相符就表示同一個網段
第17~25行把ip變成二進位的字串
第28~31行把10進位數值變成二進位的字串

你可能感興趣的文章

[PERL] Regex 字元集(群組) 幾個Perl在regular express會用到的特殊符號notation：字元集

[PERL] 08-陣列 #2 --操作更多perl陣列的操作，如拆開、黏合、取出、加入等等

Perl 的特殊變數：$` $' $#陣列 $1 $2 .. $10 \1 \2 .. \10 介紹Perl 的 $` $' $#array $1..$10 \1..\10這些變數

Perl 計算經過的時間 Perl 計算程式執行經過的時間

[PERL] Perl 不立即輸出的列印緩衝區問題解決Perl 不立即輸出而是最後一次輸出的列印緩衝區問題

[PERL] 22-日期和時間 Perl 取得日期時間的方法整理，使用 localtime等多種函數

我有話要說

訪客留言

[無留言]

隨機好文

[MAC] 截取螢幕畫面的方法截取螢幕畫面的方法，在MAC中叫作螢幕快照，英文是screenshot

UTF-8的網頁但IE8一片空白 UTF8編碼的網頁在Firefox 正常顯示、但IE8 就是空白，IE8編碼設定是「自動偵測」可是自動偵測到的是 big5...

[大型機台] 熱血高校躲避球多少少年時光歲月耗在這個遊戲上，二十幾年前的那個時光，唯一想做的事就是把吃飯錢省下來拿去打一場五塊錢的電動，就算是沒錢也

[PHP]解決ksort新增的SORT_NATURAL|SORT_FLAG_CASE方法 php>=5.4中ksort函數多了SORT_NATURAL 和 SORT_FLAG_CASE 旗標，對舊版的PHP中要怎麼辦？

[Mysql] 資料型態int, float, double, text, char, varchar, blob大小 Mysql中資料型態int, float, text, char, varchar, blob大小

到最底端