Tcl - 按位运算符

Tcl语言支持的按位运算符如下表所示。假设变量A为 60，变量B为 13，则 -

操作员	描述	例子
&	如果两个操作数中都存在，则二进制 AND 运算符会将一位复制到结果中。	(A & B) 将给出 12，即 0000 1100
\|	如果任一操作数中存在该位，则二元或运算符会复制该位。	(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