Mega Code Archive

 

Categories / Perl / System Functions

 

Combine unpack and pack in one statement

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