#!/usr/bin/env perl -l

use strict;
use warnings;

use constant {
    IN_SEP => ( defined $ARGV[0] ? $ARGV[0] : ' ' ),
    OUT_SEP => ( defined $ARGV[1] ? $ARGV[1] : ' ' ),
    SECTION => ( length $ARGV[2] ? $ARGV[2] : 'hello'),
    PARM => ( length $ARGV[3] ? $ARGV[3] : 'j'),
    INI => ( length $ARGV[4] ? $ARGV[4] : 'pm_1164267_config_inifiles.ini' ),
};

use Config::IniFiles;

{
    my $cfg = Config::IniFiles::->new( -file => INI );

    my $j_str = $cfg->val( SECTION, PARM );

    process_j_str($j_str);
}

{
    tie my %ini, 'Config::IniFiles', ( -file => INI );

    my $j_str = $ini{+SECTION}{+PARM};

    untie %ini;

    process_j_str($j_str);
}

sub process_j_str {
    my ($j_str) = @_;

    my @j_vals;

    _populate_j_vals_array($j_str, \@j_vals);
    _print_with_seps(\@j_vals);
}

sub _populate_j_vals_array {
    my ($j_str, $j_vals) = @_;

    my $i = 0;

    for (0 .. length($j_str) - 1) {
        my $char = substr $j_str, $_, 1;

        if ($char eq IN_SEP) {
            ++$i if length $j_vals->[$i];
        }
        else {
            $j_vals->[$i] .= $char;
        }
    }
}

sub _print_with_seps {
    my ($j_vals) = @_;

    {
        local $" = OUT_SEP;

        print "j=@$j_vals";
    }
}