如何删除一个十六进制数前面的零或多个“0”

wawxdyy

如下变量

1. 
   
2. $a=00034ab3450d008
   

复制代码

paktc

$a=~s/^0*//;

gaochong

my $a="00034ab3450d008";
if ($a=~/^(0*)?.*/) {
        $a=~s/$1//;
}
print "$a\n" ;

gaochong

要把16进制的值当成字符串