perl二进制,，十进制与十六进制转换

生物信息里面也有进制的转换关系，不多说，把简单的写一下：

sub d2b()#2to10
{
	my $bin = shift;
	my $mod = $bin % 2;
	return $bin if $bin < 2;
	$bin = ($bin - $mod) / 2;
	return &d2b($bin).$mod;
}

sub dec2bin()#2to10
{
	my $dec = shift;
	my $bin = unpack("B32", pack("N",$dec));
	return $bin;
}

sub bin2dec()#10to2
{
	my $bin = shift;
	my $dec = unpack("N", pack("B32", $bin));
	return $dec;
}

sub hex2bin()#16to2
{
	my $hex = shift;
	my $dec = hex $hex;
	my $bin = &d2b($dec);
	return $bin;
}