Как напечатать первый элемент subhash в обратном порядке Perl

Question

Я хочу напечатать значения каждого первого $family в обратном порядке, и первое значение, которое он печатает, является общим скалярным значением в каждом $community.

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper; 
use Tie::Autotie 'Tie::IxHash';

my @NAMES       = qw(AA AB AC BA BB BC CA CB CC AA AB AC BA BB BC CA CB CC AA AB AC BA BB BC CA CB CC AD CD CE CF BD BE);
my @FAMILIES    = qw(A  A  A  B  B  B  C  C  C  A  A  A  B  B  B  C  C  C  A  A  A  B  B  B  C  C  C  A  C  C  C  B  B);
my @COMMUNITIES = qw(0  0  0  0  0  0  0  0  0  1  1  1  1  1  1  1  1  1  2  2  2  2  2  2  2  2  2  0  2  2  2  1  1);

tie my %community_family_name, 'Tie::IxHash' ;

undef $community_family_name{ $COMMUNITIES[$_] }{ $FAMILIES[$_]}{$NAMES[$_]}
    for 0 .. $#NAMES;

for my $community (keys %community_family_name) {
    my $i = 0;
    for my $family (keys %{ $community_family_name{$community} }) {
        for my $name (keys %{ $community_family_name{$community}{$family} }) {
            $community_family_name{$community}{$family}{$name} = $i++;
        }
    }
}

foreach my $community (sort keys %community_family_name)
{
        foreach my $family (keys %{ $community_family_name{$community} }) 
    {
        foreach my $name (keys %{ $community_family_name{$community}{$family}}) 
        {
            print "[$community] = ";
            print scalar "%{ $community_family_name{$community}";
            print reverse "$community_family_name{$community}{$family}{$name}";
            print " ";
        }
    }
}
print Dumper(\%community_family_name);

Токовый выход:

[0] = HASH(0x1038c80)0 [0] = HASH(0x1038c80)1 [0] = HASH(0x1038c80)2 [0] = HASH(0x1038c80)3 [0] = HASH(0x1038c80)4 [0] = HASH(0x1038c80)5 [0] = HASH(0x1038c80)6 ...

Ожидаемый результат:

[0] = 10 7 4 0
[1] = 11 8 3 0
[2] = 12 6 3 0 

Что находится в %community_family_name

$VAR1 = {
              '0' => {
                       'A' => {
                                'AA' => [
                                          0
                                        ],
                                'AB' => [
                                          1
                                        ],
                                'AC' => [
                                          2
                                        ],
                                'AD' => [
                                          3
                                        ]
                              },
                       'B' => {
                                'BA' => [
                                          4
                                        ],
                                'BB' => [
                                          5
                                        ],
                                'BC' => [
                                          6
                                        ]
                              },
                       'C' => {
                                'CA' => [
                                          7
                                        ],
                                'CB' => [
                                          8
                                        ],
                                'CC' => [
                                          9
                                        ]
                              }
                     },
               '1' => {
                       'A' => {
                                'AA' => [
                                          0
                                        ],
                                'AB' => [
                                          1
                                        ],
                                'AC' => [
                                          2
                                        ]
                              },
                       'B' => {
                                'BA' => [
                                          3
                                        ],
                                'BB' => [
                                          4
                                        ],
                                'BC' => [
                                          5
                                        ],
                                'BD' => [
                                          6
                                        ],
                                'BE' => [
                                          7
                                        ]
                              },
                       'C' => {
                                'CA' => [
                                          8
                                        ],
                                'CB' => [
                                          9
                                        ],
                                'CC' => [
                                          10
                                        ]
                              }
                     },
               '2' => {
                       'A' => {
                                'AA' => [
                                          0
                                        ],
                                'AB' => [
                                          1
                                        ],
                                'AC' => [
                                          2
                                        ]
                              },
                       'B' => {
                                'BA' => [
                                          3
                                        ],
                                'BB' => [
                                          4
                                        ],
                                'BC' => [
                                          5
                                        ]
                              },
                       'C' => {
                                'CA' => [
                                          6
                                        ],
                                'CB' => [
                                          7
                                        ],
                                'CC' => [
                                          8
                                        ],
                                'CD' => [
                                          9
                                        ],
                                'CE' => [
                                          10
                                        ],
                                'CF' => [
                                          11
                                        ]
                              }
                     }
            };

Answer 1

Вы почти на месте.

Первая точка - это ожидаемый результат для community, поэтому ваши print функции должны оставаться в первом цикле.

Вторая - это вынеобходимо использовать scalar и reverse для массивов, а не для скалярного значения, такого как строки в двойных кавычках.

# Let me shorten your variable name, that's way too long...
my %cfn = %community_family_name;

foreach my $com (sort keys %cfn) {
    # Count up keys in the community
    my $count = map { keys %{$cfn{$com}->{$_}} } keys %{$cfn{$com}};

    my @vals;
    foreach my $family (reverse sort keys %{$cfn{$com}}) {
        my ($first) = sort keys %{$cfn{$com}->{$family}};
        push @vals, @{$cfn{$com}->{$family}->{$first}};
    }

    printf "[%d] = %s", $com, join q{ }, $count, @vals;
    print "\n";
}