通過Tcl語言支持位運(yùn)算符列在下表中。假設(shè)變量A=60和變量B=13,則:
運(yùn)算符 | 描述 | 例子 |
---|---|---|
& | 二進(jìn)制和操作符副本位的結(jié)果,如果它存在于兩個(gè)操作數(shù)。 | (A & B) = 12 也就是 0000 1100 |
| | 二進(jìn)制或操作拷貝位,如果它存在一個(gè)操作數(shù)中。 | (A | B) = 61 也就是 0011 1101 |
^ | 二進(jìn)制異或操作符的副本,如果它被設(shè)置在一個(gè)操作數(shù)而不是兩個(gè)比特。 | (A ^ B) = 49 也就是 0011 0001 |
<< | 二進(jìn)制左移位運(yùn)算符。左邊的操作數(shù)的值向左移動(dòng)由右操作數(shù)指定的位數(shù)。 | A << 2 = 240 也就是 1111 0000 |
>> | 二進(jìn)制向右移位運(yùn)算符。左邊的操作數(shù)的值由右操作數(shù)指定的位數(shù)向右移動(dòng)。 | A >> 2 = 15 也就是 0000 1111 |
試試下面的例子就明白了所有Tcl語言中可用的位運(yùn)算符:
#!/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"
當(dāng)編譯和執(zhí)行上面的程序,會(huì)產(chǎn)生以下結(jié)果:
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