in reply to Re^2: Ini files
in thread Ini files

Don't struggle with ini, use YAML 
#!/usr/bin/perl --

use strict;
use warnings;

use YAML;
use Data::Dumper;

sub printdump {
    print Dump($_[0]),"\n\n";
    print Data::Dumper->new([$_[0]])->Indent(1)->Dump,"\n";
    print "---------- $_[0] ----------\n";
}

{
    my %ini;    
    $ini{performance}{pop1}{ip}  = q{192.168.1.1};
    $ini{performance}{pop1}{slots} = [
            {2 =>  123},
            {2 =>  345},
            {4 =>  125},
    ];
    $ini{performance}{pop2}  = {};
    $ini{performance}{pop2}{ip}  = q{192.168.1.2};
    $ini{performance}{pop2}{slots} = [
            {6 =>  503},
            {10 =>  444},
    ];
    printdump(\%ini);
}


{
    my %ini;
    $ini{performance}{pop1}=[
        q{192.168.1.1},
        {2 =>  123},
        {2 =>  345},
        {4 =>  125},
    ];
    $ini{performance}{pop2} = [
        q{192.168.1.2},
        {6 =>  503},
        {10 =>  444},
    ];
    printdump(\%ini);
}

{
    my %ini;
    $ini{performance}{pop1}=[
        q{192.168.1.1},
        [2 =>  123],
        [2 =>  345],
        [4 =>  125],
    ];
    $ini{performance}{pop2} = [
        q{192.168.1.2},
        [6 =>  503],
        [10 =>  444],
    ];
    printdump(\%ini);    
}


{
    my %ini;
    $ini{performance}{pop1} = [qw[
        192.168.1.1
        2    123
        2    345
        4    125
    ]];


    $ini{performance}{pop2} = [qw[
        192.168.1.2
        6    503
        10   444 
    ]];
    printdump(\%ini);    
}


{
    my %ini;
    $ini{pop1} = [qw[
        192.168.1.1
        2    123
        2    345
        4    125
    ]];


    $ini{pop2} = [qw[
        192.168.1.2
        6    503
        10   444 
    ]];
    printdump(\%ini);    
}
__END__

[download]
---
performance:
  pop1:
    ip: 192.168.1.1
    slots:
      - 2: 123
      - 2: 345
      - 4: 125
  pop2:
    ip: 192.168.1.2
    slots:
      - 6: 503
      - 10: 444


$VAR1 = {
  'performance' => {
    'pop1' => {
      'ip' => '192.168.1.1',
      'slots' => [
        {
          '2' => 123
        },
        {
          '2' => 345
        },
        {
          '4' => 125
        }
      ]
    },
    'pop2' => {
      'ip' => '192.168.1.2',
      'slots' => [
        {
          '6' => 503
        },
        {
          '10' => 444
        }
      ]
    }
  }
};

---------- HASH(0x18bfd6c) ----------
---
performance:
  pop1:
    - 192.168.1.1
    - 2: 123
    - 2: 345
    - 4: 125
  pop2:
    - 192.168.1.2
    - 6: 503
    - 10: 444


$VAR1 = {
  'performance' => {
    'pop1' => [
      '192.168.1.1',
      {
        '2' => 123
      },
      {
        '2' => 345
      },
      {
        '4' => 125
      }
    ],
    'pop2' => [
      '192.168.1.2',
      {
        '6' => 503
      },
      {
        '10' => 444
      }
    ]
  }
};

---------- HASH(0x191e698) ----------
---
performance:
  pop1:
    - 192.168.1.1
    -
      - 2
      - 123
    -
      - 2
      - 345
    -
      - 4
      - 125
  pop2:
    - 192.168.1.2
    -
      - 6
      - 503
    -
      - 10
      - 444


$VAR1 = {
  'performance' => {
    'pop1' => [
      '192.168.1.1',
      [
        2,
        123
      ],
      [
        2,
        345
      ],
      [
        4,
        125
      ]
    ],
    'pop2' => [
      '192.168.1.2',
      [
        6,
        503
      ],
      [
        10,
        444
      ]
    ]
  }
};

---------- HASH(0x191e794) ----------
---
performance:
  pop1:
    - 192.168.1.1
    - 2
    - 123
    - 2
    - 345
    - 4
    - 125
  pop2:
    - 192.168.1.2
    - 6
    - 503
    - 10
    - 444


$VAR1 = {
  'performance' => {
    'pop1' => [
      '192.168.1.1',
      '2',
      '123',
      '2',
      '345',
      '4',
      '125'
    ],
    'pop2' => [
      '192.168.1.2',
      '6',
      '503',
      '10',
      '444'
    ]
  }
};

---------- HASH(0x191e890) ----------
---
pop1:
  - 192.168.1.1
  - 2
  - 123
  - 2
  - 345
  - 4
  - 125
pop2:
  - 192.168.1.2
  - 6
  - 503
  - 10
  - 444


$VAR1 = {
  'pop1' => [
    '192.168.1.1',
    '2',
    '123',
    '2',
    '345',
    '4',
    '125'
  ],
  'pop2' => [
    '192.168.1.2',
    '6',
    '503',
    '10',
    '444'
  ]
};

---------- HASH(0x191e98c) ----------

[download]
or even JSON

In Section Seekers of Perl Wisdom