Speaking of Re: Parsing a config file with braces and nested braces ( like json/yaml) and Re: Parsing a config file with braces and nested braces this works

#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
use 5.010; #~ use v5.10.0;

my $raw = '
bob {  
    ed {  
        larry { 
            rule5 {  
                option {  
                    disable-server-response-inspection no;  
                }  
                tag [ some_tag ];  
                from [ prod-L3 ];  
                to [ corp-L3 ];  
                source [ any ];  
                destination [ any ];  
                source-user [ any ];  
                category [ any ];  
                application [ any ];  
                service [ any ];  
                hip-profiles [ any ];  
                log-start no;  
                log-end yes;  
                negate-source no;  
                negate-destination no;  
                action allow;  
                log-setting orion_log;  
            }
            rule6 {  
                option {  
                    disable-server-response-inspection no;  
                }  
                tag [ some_tag ];  
                from [ prod-L3 ];  
                to [ corp-L3 ];  
                source [ any ];  
                destination [ any ];  
                source-user [ any ];  
                category [ any ];  
                application [ any ];  
                service [ any ];  
                hip-profiles [ any ];  
                log-start no;  
                log-end yes;  
                negate-source no;  
                negate-destination no;  
                action allow;  
                log-setting orion_log;  
            }  
        }
    }
}
';

my $FROM_CONFIG = qr{
(?<OBJECT_OPEN>
    ^
    \s*
    (?<NAME>
        \w+
    )
    \s*
    \{
    \s*
    [\r\n]+
)
|
(?<OBJECT_CLOSE> ^ \s* \} \s* [\r\n]+ )
|
(?<KEYVAL>
    ^
    \s*
    (?<KEY>
        [\w\-]+
    )
    \s+
    (?<VAL>
        [^\r\n\{;]+
    )
    ;
    \s*
    [\r\n]+
)
|
(?<UHOH> . )
}xms;

my @stack = {};

while( $raw =~ m{$FROM_CONFIG}g ){
##    dd( \%+ );
##    push @stack, { %+ };

    my $freeze = { %+ };
    if( $freeze->{OBJECT_OPEN} ){
        my $new = {};
        $stack[-1]->{ $freeze->{NAME} } = $new;
        push @stack, $new;
    }elsif( $freeze->{OBJECT_CLOSE} ){
        pop @stack;
    }elsif( $freeze->{KEYVAL} ){
        $stack[-1]->{ $freeze->{KEY} } = $freeze->{VAL};
    }
}

dd( \@stack );
__END__
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.