The usage for <=> here in the masking expreasion ($decimal & 0x80) is to test if this 8th bit is zero or one, also you can do it like:
#!/usr/bin/perl -w use strict; use warnings; print "Enter decimal number less than 256:"; my $decimal; $decimal=<STDIN>; chomp $decimal; # $decimal += 0; print (($decimal & 0x80)? (1) : (0) ); # to test the 8th bit print (($decimal & 0x40)? (1) : (0) ); # to test the 7th bit print (($decimal & 0x20)? (1) : (0) ); # to test the 6th bit print (($decimal & 0x10)? (1) : (0) ); # to test the 5th bit print (($decimal & 0x08)? (1) : (0) ); # to test the 4th bit print (($decimal & 0x04)? (1) : (0) ); # to test the 3th bit print (($decimal & 0x02)? (1) : (0) ); # to test the 2nd bit print (($decimal & 0x01)? (1) : (0) ); # to test the 1st bit
In reply to Re^3: decimal to binary conversion
by Hosen1989
in thread decimal to binary conversion
by mp0065789
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |