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 で簡単に実行できますがip、IP アドレスの変換に Tcllib のパッケージを使用することを検討することもできます。これは、IPv4 および IPv6 アドレスで行う必要があるほとんどすべてのことを簡単にする多数の便利な関数を提供するためです。