在Perl中将十六进制转换为二进制文件

Question

我想将位于$ 1，$ 2，$ 3和$ 4中的十六进制值转换为二进制文件并保存到数组中。我知道$ 1只是一个字符串，所以我想将它转换转换为二进制之前诅咒，但它不工作...这里是我的代码：

#! usr/bin/perl 
use warnings; 
use strict; 

while(<>) 
{ 
    if(/SIB_DBG/) 
    { 
     if(/TTRB:\s*([\da-f]+)\s([\da-f]+)\s([\da-f]+)\s([\da-f]+)/ || 
      /ETRB:\s*([\da-f]+)\s([\da-f]+)\s([\da-f]+)\s([\da-f]+)/ || 
      /Command\sETRB\s*([\da-f]+)\s([\da-f]+)\s([\da-f]+)\s([\da-f]+)/) 
     { 
      my $one = $1; 
      my $two = $2; 
      my $three = $3; 
      my $four = $4; 
      print "$_ $one $two $three $four\n"; 
      printf("binary :%b\n",$four); 
     } 
    } 
} 

我输入日志文件就像

Aug 31 15:25:53 usb3 kernel: [ 78.812034] SIB_DBG TTRB:01000680 00080000 00000008 00030840, PTR: ffff88005ff8b800 
Aug 31 15:25:53 usb3 kernel: [ 78.815428] SIB_DBG ETRB: 5ff8b850 00000000 01000000 01018001 

而且我得到一个错误，在某些行说..

争论 “f8891” 是不是在printf的数字在script.plx线21，<>行6.

Answer 1

问题是文本字符串和数字值之间存在差异。

后者可以表示为十六进制，二进制，八进制 - 幕后，计算机无论如何都是用二进制来思考的。

但是，文本字符串是表示来自字符集的符号的字符代码序列。

所以要做你想做的事 - 你需要首先将你的'字符串'转换为数字值。

的Perl有hex功能，为你这样做：

#!/usr/bin/env perl 
use strict; 
use warnings; 

my $string = '5ff8b850'; 
my $value = hex ($string); 

print "Dec: ",$value,"\n"; 
printf ("Hex: %X\n", $value); 
printf ("Binary: %b\n", $value);