perl - 打印哈希散列中的最低值

Question

我在完成一项简单任务时遇到问题。我有以下散列的散列:

%hash = (
personA => {
    2017   => 1,
    2018   => 2,
},
personB => {
    2015   => 4,
    2013   => 28,
    2014   => 1, .
},
personC => {
    2013   => 3,
    2011   => 2,
    2012   => 45,
},
);

我正在尝试打印出每个人的最早年份，例如类似于:

人A 2017

personB 2013

personC 2011

List::Util 似乎是最好的工具，但我找不到适合我的数据的示例。我遇到了麻烦，因为我找到的解决方案试图对哈希的第一级(即 personA 等)进行排序/打印，而不是年份。

use strict;
use warnings;

my %hash;
my $hash; 

%hash = (
personA => {
    2017   => 1,
    2018   => 2,
},
personB => {
    2015   => 4,
    2013   => 28,
    2014   => 1,
},
personC => {
    2013   => 3,
    2011   => 2,
    2012   => 45,
},
);

use List::Util qw(min);
my $min = min keys %hash;
$hash = {$min => $hash->{$min}};

Answer 1

遍历人。然后，取消引用每个人的散列以获取年份列表:

use warnings;
use strict;
use List::Util qw(min);

my %people = (
personA => {
    2017   => 1,
    2018   => 2,
},
personB => {
    2015   => 4,
    2013   => 28,
    2014   => 1,
},
personC => {
    2013   => 3,
    2011   => 2,
    2012   => 45,
},
);

for my $person (sort keys %people) {
    my $min = min(keys %{ $people{$person} });
    print "$person $min\n";
}

输出:

personA 2017
personB 2013
personC 2011