Bitwise operator : Bitwise Operator « Language Basics « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Language Basics » Bitwise Operator 
Bitwise operator
  

#!/usr/bin/perl

use warnings;
use strict;

my $a = 3;
my $b = 6;
my $r;

printf "$a = %03b \n", $a;
printf "$b = %03b \n", $b;

$r = $a & $b;   printf "$a & $b = %03b = %d\n", $r, $r;
$r = $a | $b;   printf "$a | $b = %03b = %d\n", $r, $r;
$r = $a ^ $b;   printf "$a ^ $b = %03b = %d\n", $r, $r;
$r = ~$a;       printf "~$a = %03b = %d\n", $r, $r;

   
    
  
Related examples in the same category
1.Bitwise And Operators in action
2.Bitwise Or Operators in action
3.Bitwise exclusive or Operators in action
4.Bitwise Logical Operators
5.The Bit-Manipulation Operators
6.Check a specific bit
7.Using '|'(bar) operator
8.Using '^' operator
9.Using & operator
10.Boolean and: &&
11.Boolean operator: ||
12.Resulting Values of Bitwise Operators
13.Logical Word Operators
14.Using and (&&) operator with if statement
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.