in reply to Re: conf file in Perl syntax
in thread conf file in Perl syntax

Thanks LanX for your reply. I am new guy in perl, but I installed the IniFiles module. what you are writing is hard-to-read syntax for me. What I need is a little code snippet that does the following: I have the inifile: 
[hosts]
# hostname = IP
host_1 = 192.168.1.1
host_2 = 192.168.1.2
host_3 = 192.168.1.3

[download]
The only thing I need is a little piece of code that will get all the hostnames into an array @hostnames and all the IPs into an array @ips. Is this possible? Thank you!

Replies are listed 'Best First'.
Re^3: conf file in Perl syntax
by GrandFather (Saint) on Jun 11, 2009 at 21:11 UTC

    Don't do that (parallel arrays). Either use an array of arrays (AoA):

    my @IPMap = (
    [ "host_1", "192.168.1.1" ],
    [ "host_2", "192.168.1.2" ],
    [ "host_3", "192.168.1.3" ],
);

    [download]

    or better, a hash:

    my %IPMap = (
    host_1 => "192.168.1.1",
    host_2 => "192.168.1.2",
    host_3 => "192.168.1.3",
);

    [download]

    YAML allows both structures to be generated directly from the configuration file. For example:

    use strict;
use warnings;
use Data::Dump::Streamer;
use YAML ();

my $yamlStr = <<END_YAML;
---
host_1: "192.168.1.1"
host_2: "192.168.1.2"
host_3: "192.168.1.3"
---
-
    - host_1
    - "192.168.1.1"
-
    - host_2
    - "192.168.1.2"
-
    - host_3
    - "192.168.1.3"
END_YAML

my ($IPMapH, $IPMapAoA) = YAML::Load ($yamlStr);

Dump $IPMapH;
Dump $IPMapAoA;

    [download]

    Prints:

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

    [download]
    True laziness is hard work
[reply]
[d/l]
[select]
Re^3: conf file in Perl syntax
by Anonymous Monk on Jun 11, 2009 at 12:34 UTC
    $ cat hosts.conf
    <Hosts>
    host_1 = 192.168.1.1
    host_2 = 192.168.1.2
    host_3 = 192.168.1.3
    </Hosts>

    $ cat hosts.pl

    #!/usr/local/bin/perl -w
    use Config::General(ParseConfig);
    $configFile='hosts.conf';
    my %config = ParseConfig($configFile);
    foreach my $host (keys(%{$config{Hosts}}))
    {
    print "Machine : $host => $config{Hosts}{$host}\n";
    }

    $ ./hosts.pl
    Machine : host_1 => 192.168.1.1
    Machine : host_2 => 192.168.1.2
    Machine : host_3 => 192.168.1.3
[reply]

In Section Seekers of Perl Wisdom