十进制ip转换为普通IP

hujarvis

从网页获取的IP经常是ulong十进制的如
x=1871778411
解析为普通的ip地址代码如下
IPtranfrom = function(x){
x1 = floor(x/(256^3))
x2 = floor((x-x1*(256^3))/(256^2))
x3 = floor((x-x1*(256^3)-x2*(256^2))/256)
x4 = x-x1*(256^3)-x2*(256^2)-x3*256
y = paste(x1,x2,x3,x4,sep=".")
return(y)
}
IPtranfrom(x)

但当x1太大时x为ulong可能出现为负数的情形，请问在这种情况下该如何解析，有高手遇到过类似情形不

enthumelon

来点黑魔法，

IPtranfrom2 = function(x){
if (x >= 256^4 ) stop(">255.255.255.255")
x1 <- bitwShiftR(bitwAnd(x,-1),24)
x2 <- bitwShiftR(bitwAnd(x,16777215L),16)
x3 <- bitwShiftR(bitwAnd(x,65535L),8)
x4 <- bitwAnd(x,255L)
y = paste(x1,x2,x3,x4,sep=".")
return(y);
}

x= 117710
IPtranfrom2(x)
x=100000000000
IPtranfrom2(x)

hujarvis

[未知用户]

大牛！！对bitwShiftR，bitwAnd函数还没看懂，需要研究下~~

另外：在R中通常通过IP查询对应的地市信息是怎么做的，我用抓取ip138.com返回的地市信息效率太低，在哪里可以下载到详细的中文对应表

enthumelon

[未知用户]
供php使用的数据库倒是连百度都能搜索到，但是是binary的，再涉及到不知道是哪种中文编码我就没有尝试了。你要有兴趣可以将那个数据库转换成Data frame使用。