3 lines
76 B
Perl
3 lines
76 B
Perl
|
$decimal = 4;
|
||
|
|
$binary = unpack("B32", pack("N", $decimal));
|
||
|
|
print $binary;
|