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