Re: 5.26 sigil reference syntax in subfunction

[dave_the_m]

my $hash = {
    k1 => { a => 1, b => 2, c => 3.  },
};

foreach $key (sort keys $hash->{'k1'}->%* ){
    print "$key\n";
}

which prints a b c.

Dave.

[chenhonkhonk]

I can't use that syntax because I'm loading multidimensional values from a table that have to be pulled by a function into an array which will have an unknown length, and even has to have values removed from it. The multidimensional aspect and passing by reference is what's messy with the syntax. Edit: after looking at the end of the day, I had done the latter as the accessor of the hash, arrows on arrows.

[dave_the_m]

I didn't understand your reply at all. I showed a line of code that was almost identical to the line you were having problems with, but which exhibited the behaviour you appear to have wanted (dumping the second-level keys of multidimensional hash). If this is insufficient, you'll have to describe in much more detail what it is you're trying to achieve.

Dave.

[chenhonkhonk]

It's multidimensional in variables. An example line is:

$$columhash{'config'}{"config_names[$i]"}{'rowstates'}{$j} = substr($$options_lines[$j], $horizontal_offset + $i * 2, 1);

If I want to immediately print the value, I can do:

print $$columhash{'config'}{"config_names[$i]"}{'rowstates'}{$j}; or print $$columhash{'config'}->{"config_names[$i]"}->{'rowstates'}{$j};

For the foreach (still in the function), if I want what the config_names$ were, I can do:

foreach $key (sort keys $columnhash->('config')->%* )

or

foreach $key (sort keys %{ $columnhash->('config') } )

or even

foreach $key (sort keys %{ $$columnhash{'config'} } )

but not

foreach $key (sort keys %$columnhash->('config')

and more annoyingly, when I call the function with:

assign_columns_to_file( \@options_lines, $files{'options'}{'columns'} );

It will keep 'options' as a subkey, but will not keep 'columns' used during the function (presumably because of passing an undef) So I figure to see if explicitly referencing it will work, but I can't use ->\%, I can only use \%{ } i.e.:

assign_columns_to_file( \@options_lines, \%{ $files{'options'}{'columns'} } ); Ultimately I end up having to use the surrounding referencing. I'm splitting things more into one-off functions, but I'll still end up with foreachs and \%{} running around everywhere.

[chenhonkhonk]

Sorry for the duplicate post, I didn't notice the minimizing.