TCL位運算符

通過Tcl語言支持位運算符列在下表中。假設變量A=60和變量B=13，則：

運算符

描述

例子

&

二進制和操作符副本位的結果，如果它存在於兩個操作數。

(A & B) = 12 也就是 0000 1100

|

二進制或操作拷貝位，如果它存在一個操作數中。

(A | B) =  61 也就是 0011 1101

^

二進制異或操作符的副本，如果它被設置在一個操作數而不是兩個比特。

(A ^ B) =  49 也就是 0011 0001

<<

二進制左移位運算符。左邊的操作數的值向左移動由右操作數指定的位數。

A << 2 =  240 也就是 1111 0000

>>

二進制向右移位運算符。左邊的操作數的值由右操作數指定的位數向右移動。

A >> 2 =  15 也就是 0000 1111

示例

試試下面的例子就明白了所有Tcl語言中可用的位運算符：

#!/usr/bin/tclsh set a 60 ;# 60 = 0011 1100 set b 13 ;# 13 = 0000 1101 set c [expr $a & $b] ;# 12 = 0000 1100 puts "Line 1 - Value of c is $c\n" set c [expr $a | $b;] ;# 61 = 0011 1101 puts "Line 2 - Value of c is $c\n" set c [expr $a ^ $b;] ;# 49 = 0011 0001 puts "Line 3 - Value of c is $c\n" set c [expr $a << 2] ;# 240 = 1111 0000 puts "Line 4 - Value of c is $c\n" set c [expr $a >> 2] ;# 15 = 0000 1111 puts "Line 5 - Value of c is $c\n"

當編譯和執行上面的程序，會產生以下結果：

Line 1 - Value of c is 12

Line 2 - Value of c is 61

Line 3 - Value of c is 49

Line 4 - Value of c is 240

Line 5 - Value of c is 15