Вариант 1 - готовый модуль:
perl -MNet::IP -e '$ip = new Net::IP("192.168.1.1"); print $ip->intip();'Вариант 2 - использование короткой функции:
3232235777
perl -e '$ip = "192.168.1.1"; print unpack("N",pack("C4",split(/\./,$ip)))'Источник: http://cpansearch.perl.org/src/SARENNER/Net-IPAddress-1.10/IPAddress.pm
3232235777
А обратно?
ReplyDeletesub num2ip {
ReplyDeletereturn(join(".",unpack("C4",pack("N",$_[0]))));
}
Из того же модуля)
Socket::inet_aton ;)
ReplyDelete