TCL位運算子 - tw511教學網

通過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