Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Push array to hash

by AnomalousMonk (Bishop)
on Jun 24, 2020 at 20:56 UTC ( #11118466=note: print w/replies, xml ) Need Help??

in reply to Push array to hash

Note that you have two very similar statements in the OPed code that are doing very different things:

my %lag_detail = ...; # single instance of this hash in scope ... foreach my $line (...) ) { if (...) { if (...) ) { # push ref. to OLD instance of a hash to anon. array in an +other hash. push( @{ $self->{"lags"} }, \%lag_detail ); } # change certain values in hash, but hash LOCATION does not ch +ange. %lag_detail = ( "lagid" => $lag, "lagdesc" => $4, "operationst +ate" => $3, "adminstate" => $2 ); } } if (...) { # create NEW instance of a hash in independent scope. # this instance is TOTALLY INDEPENDENT of any other created in thi +s scope. my %port_detail = (...); # push ref. to NEW instance to anon. array in another hash. push @{ $lag_detail{"ports"} }, \%port_detail; } }
References be tricky.

Give a man a fish:  <%-{-{-{-<

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2020-09-21 13:44 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (126 votes). Check out past polls.