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

由于文件具有固定格式,因此可以使用此正则表达式仅匹配最后11个字符。

^.{44}(.{11})

最后十一项是:

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

或:

.{11}$

匹配十六进制字节+空格并重复11次:

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

paren用于分组和提取。如何检索它取决于您的语言上下文,但现在在初始模式之后,某种$1设置为everything。

2) ^[0-9A-F+]{8}[\s]{2}(?[0-9A-F\s]){11}\s(.*

(?:)是分组而不提取。因此(?[0-9A-F\s]){11}将其中的子模式视为一个单元,并查找重复11次的子模式。

顺便说一下,我假设这里有PCRE。

地址和ascii字符值均为十六进制,因此:

与该行末尾匹配的是

.{11}$

为了只匹配结尾,你可以使用正面的后视。

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

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

我的时间有点短,但是如果你在网上查找任何包含单词“regex”和“lookback”的教程,你会发现很好的东西(如果regex教程包含lookahead/behind,它通常会非常完整和高级)。

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() .