Perl - 基于哈希过滤器创建哈希数组

时间:2018-03-18 00:45:51

标签: arrays perl dictionary hash hashref

我有这个包含一些信息的哈希:

my %hash = (
    key_1 => {
        year => 2000,
        month => 02,
    }, 
    key_2 => {
        year => 2000,
        month => 02,
    }, 
    key_3 => {
        year => 2000,
        month => 03,
    }, 
    key_4 => {
        year => 2000,
        month => 05,
    }, 
    key_5 => {
        year => 2000,
        month => 01,
    }
);

我不想创建一个散列数组,其中每个数组元素都列出了具有相同年份和月份的每个散列键/值对。

所以基本上我想创建这样的东西:

$VAR1 = [
    'key_1' => {
        'month' => 2,
        'year' => 2000
    },
    'key_2' => {
        'month' => 2,
        'year' => 2000
    }
], [
    'key_3' => {
        'month' => 3,
        'year' => 2000
    }
], [
    'key_4' => {
        'month' => 3,
        'year' => 2000
    }
], [
    'key_5' => {
        'year' => 2000,
        'month' => 1
    }
];

这里真正的问题是:如何将散列键值键值与其他键值值进行比较,并从中制作出地图。

感谢您的时间! =)

3 个答案:

答案 0 :(得分:0)

我得到的结果略有不同 - key_3和key_4应该属于同一个群组。

my %by_year_and_month;
undef $by_year_and_month{ $hash{$_}{year} }{ $hash{$_}{month} }{$_}
    for keys %hash;

my $result;
for my $year (keys %by_year_and_month) {
    for my $month (keys %{ $by_year_and_month{$year} }) {
        push @$result, [ map { $_ => { month => $month, year => $year } }
                         keys %{ $by_year_and_month{$year}{$month} } ];
    }
}

答案 1 :(得分:0)

my %hash = (
    key_1 => {year => 2000, month => 02},
    key_2 => {year => 2000, month => 02},
    key_3 => {year => 2000, month => 03},
    key_4 => {year => 2000, month => 03},
    key_5 => {year => 2000, month => 01}
);
my @v=qw(year month);             # keys compared
my @k=sort keys %hash;
my(@a,%i);
push@{$a[sub{$i{join$;,map$_[0]{$_},@v}//=@a}->($hash{$_})]},($_=>$hash{$_}) for@k;
use Data::Dumper; print Dumper(\@a);

答案 2 :(得分:0)

你说你想要以下内容,但没有任何意义。

 $VAR1 = [$k,$v,$k,$v...], [...], [...], ...;

接受的答案假设您想要以下内容:

$VAR1 = [ [$k,$v,$k,$v,...], [...], [...], ... ];

可以通过以下方式获得:

sub group_id { sprintf "%04d-%02d", @{ $_[0] }{qw( year month )} }

my %grouped;
for my $k (keys(%hash)) {
   my $v = $hash{$k};
   push @{ $grouped{ group_id($v) } }, $k, $v;
}

my $VAR1 = [ map { $grouped{$_} } sort keys %grouped ];

但这是一种非常奇怪的格式。以下内容会更有意义:

$VAR1 = [ { $k=>$v,$k=>$v,...}, {...}, {...}, ... ];

可以通过以下方式获得:

sub group_id { sprintf "%04d-%02d", @{ $_[0] }{qw( year month )} }

my %grouped;
for my $k (keys(%hash)) {
   my $v = $hash{$k};
   $grouped{ group_id($v) }{$k} = $v;
}

my $VAR1 = [ map { $grouped{$_} } sort keys %grouped ];

在这两种情况下,关键是使用哈希对类似事物进行分组。

在这两种情况下,生成的组按时间顺序排列。