Tcl - Operatori bit per bit

Gli operatori bit per bit supportati dal linguaggio Tcl sono elencati nella tabella seguente. Assumi variabileA detiene 60 e variabile B tiene 13, quindi -

Operatore	Descrizione	Esempio
&	L'operatore AND binario copia un po 'nel risultato se esiste in entrambi gli operandi.	(A e B) darà 12, che è 0000 1100
|	L'operatore OR binario copia un bit se esiste in uno degli operandi.	(A | B) darà 61, che è 0011 1101
^	L'operatore XOR binario copia il bit se è impostato in un operando ma non in entrambi.	(A ^ B) darà 49, che è 0011 0001
<<	Operatore binario di spostamento sinistro. Il valore degli operandi di sinistra viene spostato a sinistra del numero di bit specificato dall'operando di destra.	Un << 2 darà 240, che è 1111 0000
>>	Operatore binario di spostamento a destra. Il valore dell'operando sinistro viene spostato a destra del numero di bit specificato dall'operando destro.	Un >> 2 darà 15, che è 0000 1111

Esempio

Prova il seguente esempio per comprendere tutti gli operatori bit per bit disponibili nel linguaggio 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"

Quando compili ed esegui il programma sopra, produce il seguente risultato:

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