Tcl language Note: TCL Practice II

First, practice

1. Binary Turn Decimal

proc b2d {b} {    set0;  Set len [string  length $b]    for {set0} {$i <$len} { incr i} {        int([string index $b $i]*pow (2, $len-$i-1)]    }     return $sum}

2. Decimal Turn binary

proc D2B {d} {    set""     while {$d! =0}        {set " [expr $d%2] $b "        set d [Expr $d/2]    }    return  $b}

3. Convert from length to subnet mask

proc Len2mask {len} {SetMask""     for{SetI0} {$i <4} {incr i} {if{$len >=8} {lappend mask [b2d [FORMATB8 8] ] incr len-8        } Else{Lappend Mask [b2d [FORMATB $len8]]            SetLen0        }    }    return[Join $mask.]}

4. Convert to length based on subnet mask

 proc Mask2len {mask} { set   MSKs [Split $mask.]  0  for  {set  i 0 } {$i <4   {incr i} { set   m [Lindex $msks $i]  set   Str [D2B $m] INCR Len [ string  length [string  Trim $str 0   return   $len}  

Tcl language Note: TCL Practice II