Mega Code Archive

 

Categories / Perl / System Functions

 

Using pack and unpack to convert decimal number to binary number back and forth

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