正则表达式教程,我如何改进它

^.{44}(.{11})

...........$

.{11}$

匹配十六进制字节+空格,重复十一次:

([0-9A-Fa-f]{2} ){11}

Parens用于分组和提取。如何检索它取决于您的语言上下文,但现在在初始模式之后,所有内容都设置了某种$1。

^[0-9A-F\s]{42}

匹配线的末端将是

.{11}$

为了只匹配结尾,你可以用积极的眼光看待后面。

"(?<=(^[0-9A-F+]{8}[\\s]{2}[0-9A-F\\s]{34}))(.*?)$"

这将匹配任何字符,直到行尾,前提是它前面有“向后看”表达式。

(?<=….)定义了在匹配之前必须满足的条件。

Regex designer .

如果你正在使用 Perl unpack() ,获取每个元素。

my @data;

open my $fh, '<', $filename or die;
for my $line(<$fh>){
  my($address,@list) = unpack 'a8xx(a2x)11xa11', $line;
  my $str = pop @list;

  # unpack the hexadecimal bytes
  my $data = join '', map { pack 'H2',$_ } @list;

  die unless $data eq $str;

  push @data, [$address,$data,$str];
}
close $fh;

我还继续将11个十六进制代码转换回字符串,使用 pack() .