tcl - 在 tcl 中将 CIDR 转换为子网掩码

Question

给定 CIDR，如何将其转换为子网掩码。

Answer 1

与您使用任何其他语言的方式相同

set n 24
set mask [expr {~ 0 << ( 32 - $n )}]
format "%d.%d.%d.%d" [expr {$mask >> 24 & 255}] [expr {$mask >> 16 & 255}] [expr {$mask >> 8 & 255}] [expr {$mask & 255}]

Answer 2

当然，在纯 Tcl 中很容易做到这一点，但您可以考虑使用ipTcllib 中的包进行 IP 地址转换，因为它提供了许多便利功能，可以轻松完成几乎所有需要使用 IPv4 和 IPv6 地址进行的操作。