regex

Perl 5.10에서 use re 'debug';. (또는 debugcolor스택 오버플로에서 출력 형식을 올바르게 지정할 수 없습니다.)

$ perl -Mre = debug -e ' "foobar"= ~ / (.) \ 1 /'
REx "(.) \ 1"컴파일 중
최종 프로그램 :
   1 : OPEN1 (3)
   3 : REG_ANY (4)
   4 : CLOSE1 (6)
   6 : REF1 (8)
   8 : 끝 (0)
민렌 1
"foobar"와 REx "(.) \ 1"일치
   0 <> <foobar> | 1 : OPEN1 (3)
   0 <> <foobar> | 3 : REG_ANY (4)
   1 <f> <oobar> | 4 : CLOSE1 (6)
   1 <f> <oobar> | 6 : REF1 (8)
                                  실패한...
   1 <f> <oobar> | 1 : OPEN1 (3)
   1 <f> <oobar> | 3 : REG_ANY (4)
   2 <fo> <obar> | 4 : CLOSE1 (6)
   2 <fo> <obar> | 6 : REF1 (8)
   3 <foo> <bar> | 8 : END (0)
성공!
REx 해제 : "(.) \ 1"

또한, 당신은 할 수 그들을 더 읽을 수 있도록 정규 표현식에에 공백과 주석을 추가 할 수 있습니다. Perl에서는 /x수정자를 사용하여 수행됩니다 . 으로 pcre는이 PCRE_EXTENDED플래그.

"foobar" =~ /
    (.)  # any character, followed by a
    \1   # repeat of previously matched character
/x;

pcre *pat = pcre_compile("(.)  # any character, followed by a\n"
                         "\\1  # repeat of previously matched character\n",
                         PCRE_EXTENDED,
                         ...);
pcre_exec(pat, NULL, "foobar", ...);

답변