trying to read in a config file. 1

[nawlej]

Hey everyone. I am tryiong to read in a configuration file into my script. It is using the following format:

[CONFIG1]
texthere
texthere
texthere
[/CONFIG1]

[CONFIG2]
texthere
texthere
texthere
[/CONFIG2]

I am trying to store into an array the values in between these delimiters, but am unsure how. Can anyone give me an idea? Thank you.

-Eric

 

[mikevh]

my @arr;
my $saw_config = 0;
while (<DATA>) {
    chomp;
    if (/\[CONFIG/) {
        $saw_config++;
        next ;
    }
    if (/\[\/CONFIG/) {
        $saw_config--;
        next ;    
    }
    if ($saw_config) [
        push @arr, $_ ;
    }
}

 

[nawlej]

Thanks, I figured it out last night though. I did it a little differently because I wanted the brackets to be the new array name, so it wasnt anything I could have added to a defined array, and the names were different for different config files. I appreciate the help.

 

[missbarbell]

Is it possible to use something like Config::IniFiles? I use this alot and it makes the use of these kind of config files alot easier.

Barbie
Leader of Birmingham Perl Mongers

http://birmingham.pm.org