FastNetMon

Wednesday, 18 July 2012

Преобразование IP адреса в целое число на Perl


Вариант 1 -  готовый модуль:
perl -MNet::IP -e '$ip = new Net::IP("192.168.1.1"); print $ip->intip();'
3232235777 
 Вариант 2 - использование короткой функции:
perl -e '$ip = "192.168.1.1"; print unpack("N",pack("C4",split(/\./,$ip)))'
3232235777
Источник: http://cpansearch.perl.org/src/SARENNER/Net-IPAddress-1.10/IPAddress.pm

3 comments :

  1. sub num2ip {
    return(join(".",unpack("C4",pack("N",$_[0]))));
    }

    Из того же модуля)

    ReplyDelete
  2. Socket::inet_aton ;)

    ReplyDelete

Note: only a member of this blog may post a comment.