哈希和計數的Perl哈希

Question

我正在嘗試處理我使用Data :: Dumper輸出的perl數據結構

$VAR1 = 'GAHD';
$VAR2 = [
    {   'COUNTRY'       => 'US',
        'NAME'          => 'K. Long',
        'DATE_OF_BIRTH' => '7/27/1957',
        'POSITION'      => 'SENIOR OFFICER',
        'AGE'           => 57,
        'GRADE'         => 'P5'
    },
    {   'COUNTRY'       => 'US',
        'NAME'          => 'J. Buber',
        'DATE_OF_BIRTH' => '12/11/1957',
        'POSITION'      => 'CHIEF',
        'GRADE'         => 'D1'
    },
    {   'COUNTRY'       => 'US',
        'NAME'          => 'M. Amsi',
        'DATE_OF_BIRTH' => '1/1/1957',
        'POSITION'      => 'SENIOR ANIMAL HEALTH OFFICER',
        'AGE'           => 57,
        'GRADE'         => 'P5'
    },
    {   'COUNTRY'       => 'US',
        'NAME'          => 'E. Xenu',
        'DATE_OF_BIRTH' => '8/31/1964',
        'POSITION'      => 'SENIOR OFFICER',
        'AGE'           => 50,
        'GRADE'         => 'P5'
    },
];
$VAR3 = 'GAGD';
$VAR4 = [
    {   'COUNTRY'       => 'US',
        'NAME'          => 'P. Cheru',
        'DATE_OF_BIRTH' => '6/18/1966',
        'POSITION'      => 'ANIMAL PRODUCTION OFFICER',
        'AGE'           => 48,
        'GRADE'         => 'P4'
    },
    {   'COUNTRY'       => 'US',
        'NAME'          => 'B. Burns',
        'DATE_OF_BIRTH' => '2/4/1962',
        'POSITION'      => 'ANIMAL PRODUCTION OFFICER',
        'AGE'           => 52,
        'GRADE'         => 'P4'
    },
    {   'COUNTRY'       => 'US',
        'NAME'          => 'R. Mung',
        'DATE_OF_BIRTH' => '12/13/1968',
        'POSITION'      => 'ANIMAL PRODUCTION OFFICER',
        'AGE'           => 45,
        'GRADE'         => 'P4'
    },
    {   'COUNTRY'       => 'GERMANY',
        'NAME'          => 'B. Scherf',
        'DATE_OF_BIRTH' => '8/31/1964',
        'POSITION'      => 'ANIMAL PRODUCTION OFFICER',
        'AGE'           => 50,
        'GRADE'         => 'P4'
    },
    {   'COUNTRY'       => 'GERMANY',
        'NAME'          => 'I. Hoffmann',
        'DATE_OF_BIRTH' => '2/21/1960',
        'POSITION'      => 'CHIEF',
        'AGE'           => 54,
        'GRADE'         => 'P5'
    },
];

輸出如下：

1 ADG JUNIOR OFFICER K. King
1 DG SENIOR DIRECTOR K. King
3 P5 SENIOR OFFICER R. Forest
           R.Forest
           K. King
1 P3 JUNIOR OFFICER K. King
3 P1 FORESTRY OFFICER P. Smith
           T. Turner
           K. Turner
1 P1 GENERAL OFFICER K. King

我想按分部計算GRADES和POSITIONS數。 這是我到目前為止匯總的代碼：

#Push data read from a flat file and while loop
push @{ $grades{ $_->{GRADE} }{ $_->{POSITION} } }, $_->{NAME} for @$AG;
for my $key (
    sort { substr( $a, 0, 1 ) cmp substr( $b, 0, 1 ) || substr( $b, 0, 2 ) cmp substr( $a, 0, 2 ) }
    keys %grades
    )
{
    for my $pos ( sort { $a cmp $b } keys %{ $grades{$key} } ) {
        my $names = $grades{$key}->{$pos};
        my $count = scalar @$names;

        print $count, ' ', $key, ' ', $pos, ' ', $names->[0], "\n";
        print '        ', $names->[$_], "\n" for 1 .. $#$names;
    }
}

如果重復的POSITIONS和GRADES數據（即P1，高級官員）出現在另一個部門，代碼將停止輸出結果。

我不知道如何通過分區（即GAGD，GAGHD等）訪問Hash of Hash，以便每個分區輸出相同的GRADE和POSITION。

這是我真正需要的：

**GAGD**
1 ADG JUNIOR OFFICER K. King
1 DG SENIOR DIRECTOR K. King
3 P5 SENIOR OFFICER R. Forest
           R.Forest
           K. King
1 P3 JUNIOR OFFICER K. King
3 P1 FORESTRY OFFICER P. Smith
           T. Turner
           K. Turner
1 P1 GENERAL OFFICER K. King

**GAGHD**
1 P3 JUNIOR OFFICER P. Green
3 P1 FORESTRY OFFICER R. Brown
           F. Boo
           K. Church
1 P1 GENERAL OFFICER D. Peefer

etc.
etc.

Answer 1

您似乎希望按部門哈希信息，然后按等級+位置計算和存儲名稱。 以下似乎對我有用：

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my %grades = (
    GAHD => [ {
               NAME => 'K. Long',
               POSITION => 'SENIOR OFFICER',
               GRADE => 'P5'
              },
              {
               NAME => 'J. Buber',
               POSITION => 'CHIEF',
               GRADE => 'D1'
              },
              {
               NAME => 'M. Amsi',
               POSITION => 'SENIOR ANIMAL HEALTH OFFICER',
               GRADE => 'P5'
              },
              {
               NAME => 'E. Xenu',
               POSITION => 'SENIOR OFFICER',
               GRADE => 'P5'
              },
            ],
    GAGD => [
             {
              NAME => 'P. Cheru',
              POSITION => 'ANIMAL PRODUCTION OFFICER',
              GRADE => 'P4'
             },
             {
              NAME => 'B. Burns',
              POSITION => 'ANIMAL PRODUCTION OFFICER',
              GRADE => 'P4'
             },
             {
              NAME => 'R. Mung',
              POSITION => 'ANIMAL PRODUCTION OFFICER',
              GRADE => 'P4'
             },
             {
              NAME => 'B. Scherf',
              POSITION => 'ANIMAL PRODUCTION OFFICER',
              GRADE => 'P4'
             },
             {
              NAME => 'I. Hoffmann',
              POSITION => 'CHIEF',
              GRADE => 'P5'
             },
            ]);

for my $division (keys %grades) {
    say "**$division**";
    my %group;
    for my $person (@{ $grades{$division} }) {
        my $position = join ' ', @{ $person }{qw{GRADE POSITION}};
        push @{ $group{$position} }, $person->{NAME};
    }

    for my $position (keys %group) {
        say join ' ', scalar @{ $group{$position} },
                      $position,
                      $group{$position}[0];
        my @remaining_names = @{ $group{$position} };
        shift @remaining_names;
        say "\t$_" for @remaining_names;
    }
    say q();
}

更新

如果您存儲的信息多於數組引用中某人的名稱（ push push @{ $group{$position} }, [ ... ]; ），則可以通過取消引用每個引用來檢索它，例如在map ：

    say join ' ', scalar @{ $group{$position} },
                  $position,
                  join "\n\t", map "@$_", @{ $group{$position} };

Answer 2

你幾乎已經擁有了你所擁有的代碼。 假設您打印出的哈希稱為%grades ，我會執行以下操作：

foreach my $g (sort keys %$grades) {
    print "**$g**\n";
    # put the info to be printed in a temporary hash
    my %temp;
    foreach (@{$grades->{$g}}) {
        push @{$temp{ $_->{GRADE}." ".$_->{POSITION} }}, $_->{NAME};
    }
    foreach (sort keys %temp) {
        # print a count of the number of names, then the grade/position info
        print scalar @{$temp{$_}} . " $_ "
        # @{$temp{$_}} holds the names, so just sort them and print them out.
        . join("\n\t\t\t", sort @{$temp{$_}}) . "\n";
    }
}