Re: Modifying StanzaFile

[Gunnar Hjalmarsson]

Kashif Salman wrote:
> I have a config file with stanzas that I need to parse,

<snip>

> define name1{
>     variable=value
>     variable2=value2
> ..
> }
> define name2{
>     variable=value
>     variable2=value2
> ...
> }

    use Data::Dumper;
    my %HoH;
    {
        local $/ = "}\n";
        while (<>) {
            if ( /^define\s+(\w+){\s+(.+)}/s ) {
                my ($name, $vars) = ($1, $2);
                while ( $vars =~ /^\s*(\w+)=(\w+)/gm ) {
                    $HoH{$name}{$1} = $2;
                }
            }
        }
    }
    print Dumper \%HoH;

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl