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

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/