在这种情况下，为什么 perl 正则表达式匹配 2 个模式而不是 1 个？答案

【问题标题】：Why is perl regex matching 2 patterns instead of 1 in this case?在这种情况下，为什么 perl 正则表达式匹配 2 个模式而不是 1 个？
【发布时间】：2021-08-26 00:21:42
【问题描述】：

我正在尝试在 json 文件中匹配此重复模式：

{ 
    "date":1568381400,
    "open":301.7799987792969,
    "high":302.1700134277344,
    "low":300.67999267578125,
    "close":301.0899963378906,
    "volume":61426700,
    "adjclose":301.0899963378906
}

注意：以上为格式化版本。实际的 json 全部为一行（删除了可选的空格）。

有一堆用逗号分隔，没有空格。我使用以下代码：

while ( $Page =~ /{"date":(.+?),.+?"high":(.+?),"low":(.+?),"close":(.+?),"volume":(.+?),.+?"adjclose":(.+?)}/g )

正则表达式为每个此类调用返回两个模式示例。例如 $& 返回：

at84: matched:{"date":1623182400,"open":91.48999786376953,"high":92.379997253417
97,"low":90.77999877929688,"close":92,"volume":15404,"adjclose":92},{"date":1623072600,"open":89.80999755859375,"high":91.3499984741211,"low":89.80999755859375,"close":90.75,"volume":36200,"adjclose":90.75}

它永远不会匹配多于或少于精确的 2 个模式。

我尝试添加一个“？”在模式的末尾，什么都不做。

我想我可以更改循环以索引逗号或 {} 块，但这会增加一层我想避免的混乱。

大家有什么建议吗？

【问题讨论】：

您在示例输入中是否缺少 date 之前的引号字符？还有其他错误吗？

标签： regex perl string-matching

【解决方案1】：

您的正则表达式强制要求不存在：

"date":(.+?),.+?"high":(.+?),"low":(.+?),"close":(.+?),"volume":(.+?),.+?"adjclose":(.+?)
                                                                       ↑
                                                                       │
                       "+" requires characters but there are none ─────┘

您的输入在“volume”和“adjclose”之后的逗号之间没有字符，因此它必须一直使用输入直到 next 预期匹配的末尾才能进行匹配。

变化：

"volume":(.+?),.+?"adjclose":(.+?)

收件人：

"volume":(.+?),.*?"adjclose":(.+?)

我会将每个(.+?) 更改为(.*?)。

【讨论】：

第三方问题的edit 改变了JSON的结构（现在“有一堆用逗号分隔，没有空格。”如OP所述，不正确再有，您的陈述也不是“您的输入在“volume”和“adjclose”之后的逗号之间没有字符”）。编辑应该回滚，还是不会使您的答案无效？
@WaiHaLee 但是示例输出与原始问题一致。我已经编辑了问题以明确这一点。

【解决方案2】：

有问题的 OP 指的是 JSON 格式，那么也许输入数据可以用use JSON 模块处理。该问题没有提供有关输入数据的足够信息；

请检查以下代码 sn-p 是否符合您的问题。

注意：发布的问题的输入数据子集非常有限

use strict;
use warnings;
use feature 'say';

use Data::Dumper;

my %data;
my $input = do { local $/; <DATA> };

my($symbol,$block) = $input =~ /(.+?): matched:(.*)/;

for ( $block =~ /{(.*?)}/g ) {
    my %day = $_ =~ /"(.+?)":([\d\.]+)/g;
    $day{date} = localtime($day{date});
    push @{$data{$symbol}}, \%day;
}

say Dumper(\%data);

exit 0;

__DATA__
at84: matched:{"date":1623182400,"open":91.48999786376953,"high":92.37999725341797,"low":90.77999877929688,"close":92,"volume":15404,"adjclose":92},{"date":1623072600,"open":89.80999755859375,"high":91.3499984741211,"low":89.80999755859375,"close":90.75,"volume":36200,"adjclose":90.75}

输出

$VAR1 = {
          'at84' => [
                      {
                        'low' => '90.77999877929688',
                        'volume' => '15404',
                        'date' => 'Tue Jun  8 16:00:00 2021',
                        'high' => '92.37999725341797',
                        'adjclose' => '92',
                        'open' => '91.48999786376953',
                        'close' => '92'
                      },
                      {
                        'adjclose' => '90.75',
                        'open' => '89.80999755859375',
                        'close' => '90.75',
                        'low' => '89.80999755859375',
                        'volume' => '36200',
                        'date' => 'Mon Jun  7 09:30:00 2021',
                        'high' => '91.3499984741211'
                      }
                    ]
        };

【讨论】：