极客教程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 |
>> |
二进制右移运算符，将左操作数的值向右移动右操作数指定的位数。 |
示例
尝试以下示例以了解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 [expra | b;] ;# 61 = 0011 1101
puts "Line 2 - Value of c isc\n"
set c [expr a ^b;] ;# 49 = 0011 0001
puts "Line 3 - Value of c is c\n"
set c [expra << 2] ;# 240 = 1111 0000
puts "Line 4 - Value of c is c\n"
set c [expra >> 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