System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. 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;