Perl实现十进制和十六进制的转换

从十进制转为十六进制：

vim d2h.pl

#!/usr/bin/perl
# Convert list of decimal numbers into hex


for ($i=0;$i<@ARGV;$i++){
          printf("%d\t=0x%x\n",$ARGV[$i],$ARGV[$i]);
    }
~

chmod +x d2h.pl

$ ./d2h.pl 100 500 751
100     =0x64
500     =0x1f4
751     =0x2ef

同样的，将十六进制转换为十进制：

#!/usr/bin/perl
# Convert list of hex numbers into decimal

  for($i=0;$i<@ARGV;$i++) {
        $val=hex($ARGV[$i]);
        printf("0x%x=%d\n",$val,$val);

      }

$ ./h2d.pl 64 1f4 2ef
0x64=100
0x1f4=500
0x2ef=751

输入参数时的值若写成0x64这般形式也可得到相同结果。