Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (9)
As of 2017-06-22 14:35 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (522 votes). Check out past polls.