perl 正则表达式太贪心

Question

我查看了其他成员提出的类似问题，并从他们的询问中应用（或尝试应用）解决方案，但他们没有解决我的问题。我的模式匹配和分组太贪心，不会在第一个管道（|）处停止。如果我变得更具体，我认为可以，但我想弄清楚如何在管道的第一个实例处停止模式匹配？

这里有几行

09:30:00.063|IN:|8=FIX.4.2|9=206|35=D|34=5159|49=CLIENT|52=20191024-13:30:00.050|56=SERV|57=DEST|1=05033|11=ABZ5702|15=USD|21=1|38=2000|40=2|44=92.48|47=A|54=5|55=RC|60=20191024-13:30:00.050|111=0|114=N|336=X|5700=AP|9281=SOV|10=202
09:37:21.208|IN:|8=FIX.4.2|9=170|35=D|34=5184|49=CLIENT|52=20191024-13:37:21.206|56=SERV|57=ATXB|1=J5129|11=136404|15=USD|21=1|38=100|40=2|44=1.39|47=A|54=2|55=DIW|59=2|60=20191024-13:30:00.206|10=029

我希望我的 perl 脚本从上述数据中返回以下输出：

09:30:00.063|13:30:00.050|ABZ5702
09:37:21.208|13:37:21.206|136404

我尝试了所有这些以及其他几个版本，但无法让它产生上述输出：

    #$msg =~ s/([^|]*).*|52=([^|]*).*|11=([^|]*).*/$1|$2|$3/;
    $msg =~ s/(.+)\|??.*|52=([^|]*).*|11=([^|]*).*/$1|$2|$3/;
    #$msg =~ s/^([^|]*).??|52=([^|]*).??|11=([^|]*).*/$1|$2|$3/;
    #$msg =~ s/^([^\|??]*).*|52=([^\|??]*).*|11=([^\|??]*).*/$1|$2|$3/;
    #$msg =~ s/(.*\|??).*|52=(.+\|??).*|11=(.+\|??).*/one $1|two $2|three $3/;
    #$msg =~ s/(.*?|).*|52=(.*?|).*|11=(.*|?).*/$1|$2|$3/;
    #$msg =~ /(.*)|??.*|52=(.*)|??.*|11=(.*)|??.*/$1|$2|$3/;
    #$msg =~ s/|.*-[0-3][0-9]:/|/;

print "$msg\n";```

我知道给猫剥皮的方法不止一种，但在某些情况下我需要使用模式匹配方法。我怎样才能让它使用模式匹配产生预期的输出，它在第一个管道（|）处停止每个组？有人可以告诉我我做错了什么吗？

Answer 1

试试这个： s/(.*?)\|.*\|52=([^|]*).*\|11=([^|]*).*/$1 $2 $3/;

有几个管道分隔符需要转义。

你需要查看非贪婪匹配https://docstore.mik.ua/orelly/perl/cookbook/ch06_16.htm

第一个匹配组是(.*?)，而不是(.*)。 ? 表示我们尽可能少地匹配。

一般来说，为了在 perl 中解析 FIX，只要没有重复组，我建议先在 | 上拆分，然后创建标签值对的哈希。

Answer 2

我会做一些不同的事情 - 将行拆分为数组并处理数组的单个元素。

如果行的格式预先确定并且永远不会改变，则正则表达式可能是一种特定情况下可接受的解决方案。

use strict;
use warnings;

use Data::Dumper;

my $debug = 0;

while( my $line = <DATA> ) {
    my @array = split /\|/, $line;

    print Dumper(\@array) if $debug;

    $array[7]  =~ s/.+?-//;
    $array[11] =~ s/\d+=//;

    printf "%s\n", join '|', @array[0,7,11];

}

__DATA__
09:30:00.063|IN:|8=FIX.4.2|9=206|35=D|34=5159|49=CLIENT|52=20191024-13:30:00.050|56=SERV|57=DEST|1=05033|11=ABZ5702|15=USD|21=1|38=2000|40=2|44=92.48|47=A|54=5|55=RC|60=20191024-13:30:00.050|111=0|114=N|336=X|5700=AP|9281=SOV|10=202
09:37:21.208|IN:|8=FIX.4.2|9=170|35=D|34=5184|49=CLIENT|52=20191024-13:37:21.206|56=SERV|57=ATXB|1=J5129|11=136404|15=USD|21=1|38=100|40=2|44=1.39|47=A|54=2|55=DIW|59=2|60=20191024-13:30:00.206|10=029