各种进制转换Perl版

#!/usr/bin/env perl
#
# This program is for transforming number between bin, oct, dec, hex.
#
use strict;


# decimal to binary
my $decimal = 4;
my $binary = unpack("B32", pack("N", $decimal));
print $binary, "\n";

# binary to decimal
$decimal = 4;
$binary = unpack("B32", pack("N", $decimal));
my $newdecimal = unpack("N", pack("B32", $binary));
print $newdecimal, "\n";

# decimal to oct
print sprintf "%lo\n", 16;

# oct to decimal
print oct 10, "\n";

# decimal to hex
print sprintf "%lx\n", 16;

# hex to decimal
print hex 0x1AB, "\n";