नेस्टेड ब्रेसिज़ से मेल खाने के लिए रिकर्सिव अभिव्यक्ति के साथ रेगेक्स?

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

यह underused 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 संशोधक के साथ regex स्ट्रिंग बताता है याद करने के लिए जहां का अंतिम बिंदु मैच है, और extract_bracketed उस जानकारी का उपयोग यह जानने के लिए करता है कि कहां से शुरू करना है।