in reply to Re^4: Decimal to Binary using Bitwise and operator in thread Decimal to Binary using Bitwise and operator
#!/usr/bin/perl -w
# decbi.pl
# author: Jeff S
# date: 11/12/09
# convert a decimal less than 256 to binary
print "Please enter the value(less than 256) you wish to convert into a binary number: \n";
$bin = <STDIN>;
chomp ($bin);
print "The binary value of $bin is: ", "\n";
#use the bitwise & operator to get the binary value:
print ((128&$bin) /128);
print ((64&$bin) /64);
print ((32&$bin) /32);
print ((16&$bin) /16);
print ((8&$bin) /8);
print ((4&$bin) /4);
print ((2&$bin) /2);
print ((1&$bin) /1);
|