perl二进制,,十进制与十六进制转换
发布时间:2020-12-16 00:17:15 所属栏目:大数据 来源:网络整理
导读:生物信息里面也有进制的转换关系,不多说,把简单的写一下: 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",pa
生物信息里面也有进制的转换关系,不多说,把简单的写一下: 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; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |