Tcl - 位运算符
Tcl语言支持的按位运算符如下表所示。 假设变量 A 为 60，变量 B 为 13，则 −
| 运算符 | 描述 | 示例 |
|---|---|---|
| & | 如果两个操作数中都存在，则二元 AND 运算符会将一位复制到结果中。 | b1 将给出 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
tcl_operators.html
