位置:首页 » 文章/教程分享 » 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