Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: 5.26 sigil reference syntax in subfunction

by dave_the_m (Monsignor)
on Oct 31, 2017 at 23:49 UTC ( #1202486=note: print w/replies, xml ) Need Help??


in reply to 5.26 sigil reference syntax in subfunction

my $hash = { k1 => { a => 1, b => 2, c => 3. }, }; foreach $key (sort keys $hash->{'k1'}->%* ){ print "$key\n"; }
which prints a b c.

Dave.

Replies are listed 'Best First'.
Re^2: 5.26 sigil reference syntax in subfunction
by chenhonkhonk (Acolyte) on Nov 01, 2017 at 11:47 UTC
    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.
      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.

        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.
        Sorry for the duplicate post, I didn't notice the minimizing.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1202486]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (10)
As of 2019-10-22 17:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?