在不使用键（）的情况下访问 Perl HoH 中的嵌套哈希？

Question

考虑以下 HoH：

$h = {
    a => {
           1 => x
    },
    b => {
           2 => y
    },
    ...
}

有没有办法在不调用keys(%$h) 的情况下检查第二个嵌套级别是否存在哈希键？例如，我想说这样的话：

if ( exists($h->{*}->{1}) ) { ...

（我知道你不能使用 * 作为哈希键通配符，但你明白了......）

我试图避免使用keys()，因为它会重置哈希迭代器，并且我正在循环使用$h：

while ( (my ($key, $value) = each %$h) ) {
    ...
}

我能找到的最接近的语言结构是smart match operator (~~) mentioned here（并且在 perlref perldoc 中没有提及），但即使 ~~ 在 Perl 版本中可用，我也只能使用 (5.8.4)，据我所知，在这种情况下它是行不通的。

如果无法完成，我想我会在进入 while 循环之前将密钥复制到数组或散列中（这是我开始的方式），但我希望避免开销。

Answer 1

不是真的。如果你需要这样做，我想我会创建一个合并哈希，列出所有二级键（在开始你的主循环之前）：

my $h = {
    a => {
           1 => 'x'
    },
    b => {
           2 => 'y'
    },
};

my %all = map { %$_ } values %$h;

然后你的exists($h->{*}->{1}) 变成exists($all{1})。当然，如果您正在修改循环内的二级散列，这将不起作用（除非您适当地更新 %all）。该代码还假设$h 中的所有值都是hashrefs，但如果需要，这很容易修复。

Answer 2

没有。 each 使用散列的迭代器，如果不使用它的迭代器，你就不能迭代散列，甚至在 C API 中也不行。 （这意味着无论如何智能匹配都无济于事。）

由于每个哈希都有自己的迭代器，因此您必须在已使用 each 进行迭代的同一哈希上调用 keys 才能遇到此问题。既然您在该哈希上调用keys 没有问题，您是否可以简单地使用keys 而不是each？或者也许调用一次keys，存储结果，然后遍历存储的键？

Answer 3

您几乎肯定会发现聚合二级哈希的“开销”低于任何其他解决方案。每次进行检查时，简单的哈希查找比遍历整个数据结构要快得多。

Answer 4

您是否尝试在没有任何 while 循环的情况下执行此操作？您可以通过引用它来测试它是否存在于哈希中，而不会产生错误

while (  my ($key, $value) = each %{$h} ) {
    if ($value->{1}) { .. } 

}

Answer 5

为什么不在 Sybase 本身而不是 Perl 中这样做呢？

您正在尝试执行集合操作，这正是 Sybase 的初衷。

假设您从“key1”、“key2”、“valye”列为“select *”的表中检索数据，只需执行以下操作：

-- Make sure mytable has index on key1
SELECT key1
FRIN mytable t1
WHERE NOT EXISTS (
    SELECT 1 FROM mytable t2
    WHERE t1.key1=t2.key1
    AND t2.key2 = 1
)

-----------
-- OR
-----------

SELECT DISTINCT key1
INTO   #t
FROM   mytable

CREATE INDEX idx1_t on #t (key1)

DELETE #t
FROM   mytable
WHERE #t.key1=mytable.key1
AND   mytable.key2 = 1

SELECT key1 from #t    

任何一个查询都返回没有 key2 of 1 的 1 级键的列表