PCRE 的 PCRE_PARTIAL 的 Perl 等价物是什么？答案

【问题标题】：What is the Perl equivalent of PCRE's PCRE_PARTIAL?PCRE 的 PCRE_PARTIAL 的 Perl 等价物是什么？
【发布时间】：2023-04-04 11:51:01
【问题描述】：

有没有办法让 Perl 正则表达式进行部分匹配，即以下表达式的某些变体应该返回 true。

perl -le 'print "aa" =~ /aaaa/'

这是执行此操作的等效 PCRE 代码。

$ cat partial.c 
#include <stdio.h>
#include <pcre.h>

int main(void)
{
    const char *errptr;
    int erroffset, result;
    pcre *re;

    re = pcre_compile("aaaa", 0, &errptr, &erroffset, NULL);
    if (re == NULL)
        return 42;

    result = pcre_exec(re, NULL, "aa", 2, 0, PCRE_PARTIAL, NULL, 0);

    printf("%d\n", result == PCRE_ERROR_PARTIAL);

    return 0;
}

$ make partial LDFLAGS=-lpcre
cc   -lpcre  partial.c   -o partial

$ ./partial 
1

编辑：pcretest 工具可用于演示部分匹配和非部分匹配之间的区别。还包括匹配 @revo 在 cmets 中建议的正则表达式的结果。

$ pcretest
PCRE version 8.41 2017-07-05

  re> /aaaa/

data> aa
No match

data> aa\P
Partial match: aa
data> aaaa
 0: aaaa

$ pcretest
PCRE version 8.41 2017-07-05

  re> /aaa?a?/

data> aa
 0: aa

data> aa\P
 0: aa

【问题讨论】：

您认为这是部分匹配吗？ perl -le 'print "aa" =~ /aaa?a?/'
好吧，对于简单的情况，我只是颠倒匹配。例如。 "aaaa" =~ /aa/，并将其用作我的“部分”案例。这似乎在您的示例中有效 - 是否有理由不“真正”？
@revo 您的示例严格来说并不是部分匹配。我更新了我的问题以包含来自pcretest 工具的输出来说明差异。
我试图阐明一些问题。如果您要匹配的是partial，那有点模拟partial match。但是我不知道这个问题是在询问是否可以在 Perl 中进行部分匹配，或者只是寻找解决特定问题的方法。
@revo 感谢您对此进行调查。我有一个大量使用 pcre_exec(..., PCRE_PARTIAL, ....); 的 C 程序。现在，我正在尝试将它翻译成 Perl 并尽可能接近 C 代码。我试图根据minimal reproducible example 准则来表达我的问题。

标签： c regex perl pcre

【解决方案1】：

使用 Perl 正则表达式没有简单的方法可以做到这一点。 Perl 的匹配运算符要么返回 true（找到匹配），要么返回 false（未找到匹配）。

如果您知道要处理的模式（通过重写模式以手动进行部分匹配），则有可能的解决方法，但据我所知，没有通用的解决方案。

【讨论】：