Esempio di operatori bit per bit Perl

Ci sono i seguenti operatori bit per bit supportati dal linguaggio Perl, supponiamo se $ a = 60; e $ b = 13 -

Sr.No. Operatore e descrizione
1

&

L'operatore AND binario copia un po 'nel risultato se esiste in entrambi gli operandi.

Example - ($ a & $ b) darà 12 che è 0000 1100
2

|

L'operatore OR binario copia un po 'se esiste nell'operando eather.

Example - ($ a | $ b) restituirà 61 che è 0011 1101
3

^

L'operatore XOR binario copia il bit se è impostato in un operando ma non in entrambi.

Example - ($ a ^ $ b) restituirà 49 che è 0011 0001
4

~

Binary Ones Complement Operator è unario e ha l'effetto di "lanciare" i bit.

Example - (~ $ a) darà -61 che è 1100 0011 in forma di complemento a 2 a causa di un numero binario con segno.
5

<<

Operatore binario di spostamento sinistro. Il valore dell'operando sinistro viene spostato a sinistra del numero di bit specificato dall'operando destro.

Example - $ a << 2 darà 240 che è 1111 0000
6

>>

Operatore binario di spostamento a destra. Il valore dell'operando sinistro viene spostato a destra del numero di bit specificato dall'operando destro.

Example - $ a >> 2 darà 15 che è 0000 1111

Esempio

Prova il seguente esempio per comprendere tutti gli operatori bit per bit disponibili in Perl. Copiare e incollare il seguente programma Perl nel file test.pl ed eseguire questo programma.

#!/usr/local/bin/perl

use integer;
 
$a = 60;
$b = 13;

print "Value of \$a = $a and value of \$b = $b\n";

$c = $a & $b;
print "Value of \$a & \$b = $c\n";

$c = $a | $b;
print "Value of \$a | \$b = $c\n";

$c = $a ^ $b;
print "Value of \$a ^ \$b = $c\n";

$c = ~$a;
print "Value of ~\$a = $c\n";

$c = $a << 2;
print "Value of \$a << 2 = $c\n";

$c = $a >> 2;
print "Value of \$a >> 2 = $c\n";

Quando il codice sopra viene eseguito, produce il seguente risultato:

Value of $a = 60 and value of $b = 13
Value of $a & $b = 12
Value of $a | $b = 61
Value of $a ^ $b = 49
Value of ~$a = -61
Value of $a << 2 = 240
Value of $a >> 2 = 15