给定以下代码,$z
引用的散列消耗的内存是否与( %$x, %$y)
使用的相同,或多或少?
如果是这样的话,有没有一种方法可以使用单个引用来调用由$x
或$y
引用的散列中的数据,而不会影响性能和内存?
use strict;
use warnings;
my $x = {
1 => 'a',
2 => 'b',
};
my $y = {
3 => 'c',
4 => 'd',
};
my $z = {
%$x, %$y
};
更新
散列引用实际上指向使用tie
和DB_File
创建的大型散列。
我想知道是否有可能我可以对这些只使用一个散列,这样我就不需要在内存中转储所有内容。此外,我可能会同时使用其中的两个以上。
发布于 2018-09-04 07:47:23
绑定散列根本不是散列。它们是子例程的接口。由于它们是代码而不是数据,因此在一般情况下谈论绑定散列的内存和性能是没有意义的。
让我们先来谈谈普通的哈希。
$z = { %$x, %$y };
会将%$x
和%$y
的标量复制到%$z
中,所以是的,它将占用两倍的内存(假设没有重复的键)。
您可以共享标量:
use Data::Alias qw( alias );
my $z = {};
alias $z->{$_} = $x->{$_} for keys(%$x);
alias $z->{$_} = $y->{$_} for keys(%$y);
您仍然会使用与两个散列中的元素数量成比例的内存,但如果%$x
和%$y
实际上是散列,则使用的内存将比以前少得多。这可能不会为绑定的散列节省任何内存。
另一种方法是根本不合并数据。你自己也可以使用绑定的散列...
package Tie::MergedHashes;
use Carp qw( croak );
sub new { my $pkg = shift; $pkg->TIEHASH(@_); }
sub TIEHASH { bless [ @_ ], $_[0] }
sub STORE { croak("Not allowed"); }
sub FETCH { for (@{$_[0]}) { return $_->{$_[1]} if exists($_->{$_[1]}); } return undef; }
...
my $z = {};
tie %$z, MergedHashes => ($y, $x);
$z->{$key}
...but没有理由让代码看起来像散列。你可以简单地使用一个对象。
package MergedHashes;
use Carp qw( croak );
sub new { bless [ @_ ], $_[0] }
sub fetch { for (@{$_[0]}) { return $_->{$_[1]} if exists($_->{$_[1]}); } return undef; }
...
my $z = MergedHashes->new($y, $x);
$z->fetch($key)
发布于 2018-09-03 23:10:11
答案很简单,是肯定的。
如果你想要两个hash ref中的所有键而不创建新的hashref,并且假设你没有重复的键,你可以这样做。
use List::Util qw( uniq );
my @keys = uniq( keys( %$x ), keys( %$y ) );
然后从任一数组中获取值,如下所示
my $value = exists $y->{$key} ? $y->{$key} : $x->{$key};
顺便问一下,为什么你使用hash ref而不是hash,为什么内存是你需要问这个问题的一个考虑因素?
https://stackoverflow.com/questions/52152216
复制相似问题