Perl Tutorial Perl References

Perl - Bitwise OR and assignment operator



The Bitwise OR and assignment operator (|=) assigns the first operand a value equal to the result of Bitwise OR operation of two operands.

(x |= y) is equivalent to (x = x | y)

The Bitwise OR operator (|) is a binary operator which takes two bit patterns of equal length and performs the logical OR operation on each pair of corresponding bits. It returns 1 if either or both bits at the same position are 1, else returns 0.

Bit_1Bit_2Bit_1 | Bit_2
000
101
011
111

The example below describes how bitwise OR operator works:

50 | 25 returns 59

     50    ->    110010  (In Binary)
   | 25    ->  | 011001  (In Binary)
    ----        --------
     59    <-    111011  (In Binary)  

The code of using Bitwise OR operator (|) is given below:

$x = 50;
$y = 25;

#Bitwise OR and assignment operation
$x |= $y;

#Displaying the result
print("x = $x");

The output of the above code will be:

x = 59

Example: Find largest power of 2 less than or equal to given number

Consider an integer 1000. In the bit-wise format, it can be written as 1111101000. However, all bits are not written here. A complete representation will be 32 bit representation as given below:

00000000000000000000001111101000  

Performing n |= (n>>i) operation, where i = 1, 2, 4, 8, 16 will change all right side bit to 1. When applied on 1000, the result in 32 bit representation is given below:

00000000000000000000001111111111 

Adding one to this result and then right shifting the result by one place will give largest power of 2 less than or equal to 1000.

00000000000000000000001000000000 

The below code will calculate the largest power of 2 less than or equal to given number.

sub MaxPowerOfTwo {
  #passing argument
  $n = $_[0];  

  #changing all right side bits to 1.
  $n |= ($n>>1);
  $n |= ($n>>2);
  $n |= ($n>>4);
  $n |= ($n>>8);
  $n |= ($n>>16);
  
  #adding 1 to n makes smallest power
  #of 2 greater than given number
  $n = $n + 1;

  #right shift by one position makes
  #largest power of 2 less than or 
  #equal to given number
  $n = $n >> 1;
  
  return $n;
}

print("MaxPowerOfTwo(100) = ".MaxPowerOfTwo(100)."\n");
print("MaxPowerOfTwo(500) = ".MaxPowerOfTwo(500)."\n");
print("MaxPowerOfTwo(1000) = ".MaxPowerOfTwo(1000)."\n");      

The above code will give the following output:

MaxPowerOfTwo(100) = 64
MaxPowerOfTwo(500) = 256
MaxPowerOfTwo(1000) = 512

❮ Perl - Operators