有没有办法让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",&errptr,&erroffset,NULL); if (re == NULL) return 42; result = pcre_exec(re,NULL,"aa",2,PCRE_PARTIAL,0); printf("%d\n",result == PCRE_ERROR_PARTIAL); return 0; } $make partial LDFLAGS=-lpcre cc -lpcre partial.c -o partial $./partial 1
编辑: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
解决方法
@H_301_15@ 使用Perl正则表达式没有简单的方法. Perl的匹配运算符返回true(匹配找到)或false(找不到匹配).如果你知道你正在处理什么样的模式(通过重写模式来手动进行部分匹配),可能有一些解决方法,但据我所知,没有通用的解决方案.