perl语言把低位在前的16进制字符串转为整型数

最新推荐文章于 2022-05-05 16:49:08 发布

ancktion

最新推荐文章于 2022-05-05 16:49:08 发布

阅读量328

点赞数

分类专栏： perl

本文链接：https://blog.csdn.net/ancktion/article/details/107264443

版权

perl 专栏收录该内容

4 篇文章 1 订阅

订阅专栏

以下为把16进制字符串转为整型数的实例：
#把低位在前的16进制字符串转为整型
#使用方法 $inter = lowhex2inter(“0a02”,4);
sub lowhex2inter
{
#字符串
my $s t r h e x = s p r i n t f ("$ _[0]);;
#字节数
my $bytenum = $KaTeX parse error: Expected 'EOF', got '#' at position 12: _[1]/2; #̲printf("hex:$ strhex num:$bytenum\n");

my $interreturn = 0;
my $i=0;
for( $i = 0; $i < $bytenum; $i ++ ){
$interreturn <<= 8;
my $t e m p v a l u e = s u b s t r ($ strhex,( $b y t e n u m -$ i-1)*2,2);
my $tempinter = 0;
$t e m p i n t e r + = h e x ($ tempvalue);
$interreturn += $KaTeX parse error: Expected 'EOF', got '#' at position 16: tempinter; #̲printf("$ i $tempvalue $tempinter inter : $interreturn\n");
}
return $interreturn;
}