Perl十进制数字转换为二进制字符

最新推荐文章于 2024-06-25 20:06:46 发布

原创最新推荐文章于 2024-06-25 20:06:46 发布 · 3.4k 阅读

4 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#perl #二进制 #十进制

收录于

Perl 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个Perl脚本中的函数，用于将十进制数字转换为固定长度的8位二进制字符串。该函数通过递归方式处理转换过程，确保输出的二进制字符串始终为8位，不足部分以零填充。

项目需要，随笔记录一下。以下函数可以将十进制数字转换为二进制字符

#十进制转换成二进制(8位二进制)
#参数说明：$dec:十进制数，$str二进制字符
sub dec_to_bin($$){ 
	my $dec = shift;
	my $str = shift;
	if($dec < 2){
	    $str = $dec.$str;
		if(length($str) < 8){
			my $len = 8-length($str);
			for (my $i = 0; $i < $len; $i++) {
				$str = '0'.$str;
			}
		}
		return $str;
	}
	my $mod = $dec % 2;
	$dec = ($dec - $mod) / 2;
	$str = $mod.$str;
	return &dec_to_bin($dec,$str);
}

#函数调用
my $str = &dec_to_bin(20);  #输出00010100