R生成IP号序列

# 定义起始IP地址和结束IP地址
start_ip <- "192.168.0.1"
end_ip <- "192.168.0.10"

# 将IP地址转换为32位整数
ip_to_int <- function(ip) {
  ip_parts <- strsplit(ip, ".", fixed = TRUE)[[1]]
  int_ip <- sum(as.integer(ip_parts) * c(256^3, 256^2, 256^1, 256^0))
  return(int_ip)
}

# 将32位整数转换为IP地址
int_to_ip <- function(int_ip) {
  ip_parts <- integer(4)
  for (i in 1:4) {
    ip_parts[i] <- int_ip %/% (256^(4-i))
    int_ip <- int_ip %% (256^(4-i))
  }
  ip <- paste(ip_parts, collapse = ".")
  return(ip)
}

# 生成IP号序列
start_int <- ip_to_int(start_ip)
end_int <- ip_to_int(end_ip)
ip_sequence <- sapply(start_int:end_int, int_to_ip)

# 打印IP号序列
print(ip_sequence)