Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

yodabjorn's scratchpad

by yodabjorn (Monk)
on Jun 01, 2004 at 22:16 UTC ( #358672=scratchpad: print w/ replies, xml ) Need Help??

Unrolling nested hashes.
#!/usr/bin/perl use strict ; my %struct ; $struct{foo}{1} = "one" ; $struct{bar}{2} = "two" ; foreach my $hash ( keys (%struct) ) { print "$hash \n"; foreach my $key ( keys ( %{$struct{$hash}} ) ) { print "\t$key \n" ; } }

[id://castaway]'s code:
#!/usr/bin/perl -w use Data::Dumper; my $hashtest; $hashtest->{'abc'}->{'filename'} = 'fred'; $hashtest->{'def'}->{'filen +ame'} = 'harry'; foreach $v (values (%{$hashtest})) { $testhash->{$v->{'filename'}} = 1; } print Dumper($testhash);

My version to get his desired results:
#!/usr/bin/perl use warnings ; # perl5 adn above use strict ; # always! use Data::Dumper; my @files ; my %hashtest; # load some dummy data $hashtest{'abc'}{'filename'} = 'fred'; $hashtest{'def'}{'filename'} = 'harry'; # unfold outter has keys foreach my $key (keys (%hashtest)) { # push the file name ont @files. # printing $hashtest{$key}{'filename'} etc would # be apropriate as well push @files, $hashtest{$key}{'filename'} ; } print Dumper(\@files);
Log In?

What's my password?
Create A New User
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (14)
As of 2015-07-01 17:20 GMT
Find Nodes?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...

    Results (13 votes), past polls