将CIDR转换为tcl中的子网掩码

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中很容易做到，但你可以考虑使用来自Tcllib的ip软件包进行IP地址转换，因为它提供了许多便利功能，使你几乎可以轻松地使用IPv4和IPv6做任何事情。地址。