Tcl - 位运算符

Tcl 语言支持的位运算符列在下表中。假设变量A为 60，变量B为 13，则：

运算符	描述	示例
&	二进制 AND 运算符：如果位同时存在于两个操作数中，则将其复制到结果中。	(A & B) 将得到 12，即 0000 1100
\|	二进制 OR 运算符：如果位存在于任一操作数中，则将其复制。	(A \| B) 将得到 61，即 0011 1101
^	二进制 XOR 运算符：如果位在一个操作数中设置，但在另一个操作数中未设置，则将其复制。	(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

tcl_operators.htm

打印页面