使用字符串访问多维哈希

作者: 一只特立独行的猪
发布时间: 2024-12-22 08:57:20 (4天前)
转自：

3 条回复

0#
回复此人
木木 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> <a href="https://metacpan.org/pod/Hash::Fold" rel="nofollow noreferrer"> <code> Hash::Fold </code> </A> 在这里似乎很有帮助。您可以“展平”您的哈希值，然后使用单个键访问所有内容。 </p> <pre> <code> use Hash::Fold 'flatten'; my $flathash = flatten(\%bighash, delimiter => '.'); print $flathash->{"core.dates.year"}; </code> </pre> </DIV>

编辑
1#
回复此人
北极星微控 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <BLOCKQUOTE> <P> <EM> 当我使用时，有人可以指出我正在发生的事情 <code> $bighash{\%hash} </code> ]？ </EM> </p> </BLOCKQUOTE> <P> 散列键是字符串，以及字符串化 <code> \%hash </code> 是这样的 <code> HASH(0x655178) </code> 。唯一的元素 <code> %bighash </code> 具有 <code> core </code> 锟斤拷不 <code> HASH(0x655178) </code> 对于密钥，所以哈希查找返回 <code> undef </code> 。 </p> <HR /> <P> 有用的工具： </p> <pre> <code> sub dive_val :lvalue { my $p = \shift; $p //= \( $$p->{$_} ) for @_; $$p } # For setting sub dive { my $r = shift; $r //= $r->{$_} for @_; $r } # For getting dive_val(\%hash, split /\./, 'core.dates.year') = 2019; say dive(\%hash, split /\./, 'core.dates.year'); </code> </pre> </DIV>

编辑

登录后才能参与评论