有没有办法让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)
使用 Perl 正则表达式没有简单的方法可以做到这一点。Perl 的匹配运算符返回 true(找到匹配)或 false(未找到匹配)。
如果您知道正在处理的模式(通过重写模式以手动进行部分匹配),则有可能的解决方法,但据我所知,没有通用的解决方案。