중첩 된 중괄호와 일치하는 재귀식이있는 정규식?

Question

sp { ...{...}... }과 같은 텍스트를 찾으려고합니다. 중괄호는 중첩 할 수 있습니다. sp { { word } } :

my $regex = qr/ 
(     #save $1 
    sp\s+   #start Soar production 
    (    #save $2 
     \{   #opening brace 
     [^{}]*  #anything but braces 
     \}   #closing brace 
     | (?1)  #or nested braces 
    )+    #0 or more 
) 
/x; 

내가 그냥 다음 텍스트와 일치하는 얻을 수 없다 : 이것은 내가 지금까지있는 것입니다. 누구든지 내 정규식에 어떤 문제가 있는지 확인할 수 있습니까?

Answer 1

많은 문제가 있습니다. 재귀 비트는해야한다 : 모두 함께

(
    (?: \{ (?-1) \} 
    | [^{}]+ 
    )* 
) 

:

이

my $regex = qr/ 
    sp\s+ 
    \{ 
     (
     (?: \{ (?-1) \} 
     | [^{}]++ 
     )* 
    ) 
    \} 
/x; 

print "$1\n" if 'sp { { word } }' =~ /($regex)/; 

Answer 2

이되지 않고있는 Text::Balanced, 이런 종류의 일을위한 매우 편리한 핵심 모듈에 대한 경우입니다. 그것은 먼저 설정/발견되는 구분 된 시퀀스의 시작의 pos에 의존 않는, 그래서 일반적으로이처럼 호출 :

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Text::Balanced 'extract_bracketed'; 

sub get_bracketed { 
    my $str = shift; 

    # seek to beginning of bracket 
    return undef unless $str =~ /(sp\s+)(?={)/gc; 

    # store the prefix 
    my $prefix = $1; 

    # get everything from the start brace to the matching end brace 
    my ($bracketed) = extract_bracketed($str, '{}'); 

    # no closing brace found 
    return undef unless $bracketed; 

    # return the whole match 
    return $prefix . $bracketed; 
} 

my $str = 'sp { { word } }'; 

print get_bracketed $str; 

gc 수정과 정규식은 문자열을 알려줍니다

이 기억하는 곳의 끝점 경기는이고, extract_bracketed은 그 정보를 사용하여 어디에서 시작해야하는지 알 수 있습니다.