2010-01-19T17:11:19 bianca

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

%hash = (
        1 => {
                a       => '1',
        },
        2 => {
                b       => '2',
        },
        3 => {
                c       => '3',
        },
        4 => {
                d       => '4',
        },
);
for my $key (sort {$a <=> $b} keys %hash) { print (grep {1} keys %{$hash{$key}}) }

1
2
3
4
5
6
7
8
9
10

my @foo = (
    { a => '1', },
    { b => '2', },
    { c => '3', },
    { d => '4', },
);
for my $hash ( @foo ) {
    print keys %$hash;
    print "\n";
}