Re^2: conf file in Perl syntax

[Ravendark]

Good, nice I like it. I read that you can have the values in an array with:

@values = $cfg->val('Section', 'Parameter'); # this will be the array 
+holding the IPs

How can I get the names of the hosts in an array too?

[targetsmart]

you can tie to a hash, and get to iterate through the keys(variables) and values(actual values) of the hash.
an example is given in the man page of the config::inifiles itself. it is easy


 use Config::IniFiles;
  
  my %ini
  tie %ini, 'Config::IniFiles', ( -file => "/path/configfile.ini" );

  print "We have $ini{Section}{Parameter}." if $ini{Section}{Parameter
+};

my @keys = keys %{$ini{$section}}
while (($k, $v) = each %{$ini{$section}}) {...}
if( exists %{$ini{$section}}, $parameter ) {...}

[Ravendark]

I am sorry but I dont quite get it. Lets say that we have the following ini file:

[hosts]
host_1 = 192.168.1.1
host_2 = 192.168.1.2
host_3 = 192.168.1.3

I need to have @hosts, containing: host_1, host_2 & host_3. Also @ips containing 192.168.1.1, 192.168.1.2 & 192.168.1.3 Is this possible? Sorry for me being stupid!

[targetsmart]

you should have better experimented with yourself!. :)


use Config::Inifiles;
use Data::Dumper;
my %ini;
tie %ini, 'Config::IniFiles', ( -file => "test.ini" );
print Dumper \%ini;
@hosts = keys %{$ini{'hosts'}};
@ips = values %{$ini{'hosts'}};
print Dumper \@hosts;
print Dumper \@ips;

will print

$VAR1 = {
          'hosts' => {
                       'host_1' => '192.168.1.1',
                       'host_2' => '192.168.1.2',
                       'host_3' => '192.168.1.3'
                     }
        };
$VAR1 = [
          'host_1',
          'host_2',
          'host_3'
        ];
$VAR1 = [
          '192.168.1.1',
          '192.168.1.2',
          '192.168.1.3'
        ];