perl – 如何根据另一个哈希的键/值删除[sub]哈希？

#! /usr/bin/perl

use strict;
use warnings;

my %hash1 = ( 
  test1 => { inner1 => { more => "alpha",somethingelse => "foxtrot" } }
);

my %hash2 = (
  major => { test2 => "inner2",test3 => "inner3" }
);

foreach my $k (keys %hash1) {
  my $delete = 1;
  foreach my $inner (keys %{ $hash1{$k} }) {
    $delete = 0,last if exists $hash2{major}{$k} &&
                                $hash2{major}{$k} eq $inner;
  }
  delete $hash1{$k} if $delete;
}

use Data::Dumper;
$Data::Dumper::Indent = 1;
print Dumper %hash1;

以$delete = 0开头的行,…有点可爱.它相当于$delete = 0;持续;在另一个条件内,但它已经嵌套了两次.不想建立一个matryoshka doll,我使用了statement modifier,但顾名思义,它修改了一个语句.

这就是Perl’s comma operator的用武之地：

Binary , is the comma operator. In scalar context it evaluates its left argument,throws that value away,then evaluates its right argument and returns that value. This is just like C’s comma operator.

在这种情况下,左参数是表达式$delete = 0,右参数是最后一个.

条件似乎不必要地挑剔,但是

... if $hash2{major}{$k} eq $inner;

在探测％hash2(例如test1 / inner1)中未提及的测试时,会产生未定义值警告.运用

.. if $hash2{major}{$k} && $hash2{major}{$k} eq $inner;

如果“内部名称”是一个假值,如字符串“0”,则会错误地删除％hash2中提到的测试.是的,使用存在这里可能是不必要的挑剔,但不知道你的实际哈希键,我选择了保守的路线.

输出：

$VAR1 = {
  'test2' => {
    'inner2' => {
      'somethingelse' => 'delta','more' => 'charlie'
    }
  }
};

虽然您没有违反它,但请注意以下与使用each相关的警告：

If you add or delete elements of a hash while you’re iterating over it,you may get entries skipped or duplicated,so don’t. Exception: It is always safe to delete the item most recently returned by each,which means that the following code will work:

06004

更新：搜索哈希就像它们是数组一样(通过说“…线性而不是对数”来打动你的CS书呆子朋友)是一个红旗,上面的代码就是这样.一个更好的方法,结果类似于Penfold的答案,是

%hash1 = map +($_ => $hash1{$_}),grep exists $hash2{major}{$_} &&
              exists $hash1{$_}{ $hash2{major}{$_} },keys %hash1;

在很好的声明式样式中,它描述了％hash1的所需内容,即

>％hash1的第一级键应该在$hash2 {major}中提及,和
>对应于每个第一级键的$hash2 {major}中的值本身应该是％hash1中该键的子键

(哇,令人目不暇接.我们需要英文多个占位符变量！)

($_ => $hash1 {$_})中的一元加值消除了可怜的解析器的歧义,因此它知道我们希望将表达式视为“对”.如果有必要,请参阅perlfunc documentation on map的结尾处理其他情况.