Re: Need a little coding help


No such thing as a small change
	PerlMonks

Re: Need a little coding help

by biohisham (Priest)

on Nov 25, 2010 at 22:52 UTC ( [id://873737]=note: print w/replies, xml )

Need Help??

in reply to Need a little coding help

pack and unpack can just let you do what you want, in Perl there is not like an intrinsic way to convert between binary and decimal but pack and unpack can allow you to do the interchanging...

my $decimal = 4;
$binary=unpack("B32", pack("N",$decimal));
print $binary;
print "\n";
my $newdecimal=unpack("N",pack("B32",$binary));
print $newdecimal;

# 32 in the template means the binary number will have 32 places
[download]

Excellence is an Endeavor of Persistence. A Year-Old Monk :D .