將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做，但你可以考慮使用ip包從Tcllib對IP地址的轉換，因爲它提供了衆多便利的功能，使它幾乎可以輕鬆處理IPv4和IPv6地址需要做的任何事情。