Perl中的数组哈希:遍历和删除

Question

如何从以下数组散列中删除元素;

%HoA = (
    flintstones    => [ {day=>'19'}, {day=>'21'}, {day=>'22'} ],
    jetsons        => [ {day=>'29'}, {day=>'23'}, {day=>'25'} ],
    simpsons       => [ {day=>'26'}, {day=>'33'}, {day=>'27'} ]
);

像如何删除如{day=>'21'}从flintstones,使结果看起来像;

%HoA = (
    flintstones    => [ {day=>'19'}, {day=>'22'} ],
    jetsons        => [ {day=>'29'}, {day=>'23'}, {day=>'25'} ],
    simpsons       => [ {day=>'26'}, {day=>'33'}, {day=>'27'} ]
);

我尝试过使用Hash =(); 但这导致undef,我删除的元素的位置

Answer 1

如果您知道[1]要从flintstones数组中删除该元素,可以splice直接使用:

splice @{$HoA{flintstones}}, 1, 1;

如果您只是想知道要删除day = 21的元素,请grep以这种方式使用:

$HoA{flintstones} = [ grep { $_->{day} != 21 } @{$HoA{flintstones}} ];

或者以更好的方式,正如肖恩的回答所示:

@{$HoA{flintstones}} = grep { $_->{day} != 21 } @{$HoA{flintstones}};

Answer 2

迭代keys %HoA，应用于grep每个数组（您必须使用 取消引用它们@{$HoA{$key}}），将对结果的引用存储回 中$HoA{$key}。