Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

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 making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2016-02-11 01:11 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (358 votes), past polls