什么是PCRE的PCRE_PARTIAL的Perl等价物?

sig*_*ice 8 c regex perl pcre

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

perl -le 'print "aa" =~ /aaaa/'
Run Code Online (Sandbox Code Playgroud)

这是执行此操作的等效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
Run Code Online (Sandbox Code Playgroud)

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

$ 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
Run Code Online (Sandbox Code Playgroud)

mel*_*ene 4

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

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