如何有效地创建连续数字的 Perl 哈希？

Question

我需要创建这样的东西：

my $valueref = {
    1 => 1,
    2 => 2,
    3 => 3,
    4 => 4
};

根据某些条件，它可能最多为 40、50 或 60。在每种情况下，它都是连续的整数，如示例中所示。一旦创建，它就永远不会改变，只是传递给预先存在的子例程。由于键和值都是连续的，因此我还可以使用 for 循环创建哈希。我很好奇创建哈希的最快和/或最有效的方法是什么？或者是否还有其他方法可以完成？

Answer 1

使用 map 就足够了：

my $valueref = { map { $_ => $_ } 1 .. 40 };

尽管有人可能会注意到这实际上是一个数组...

my @array = 0 .. 40;

所以 $valueref->{$n} 实际上是 $array[$n]。我不知道在这种情况下使用哈希是否有任何好处。

Answer 2

我可能会使用 map 来实现此目的：

my $highest_value = 50;
my %foo = map { $_ => $_ }  1 .. $highest_value ;

请记住，散列中不能保证顺序。

Answer 3

“一旦创建，就永远不会改变，只是传递给
预先存在的子例程”

---

听起来像是 state 关键字（或闭包）：

use feature 'state';

sub foo {

    my ( $param1, $param2, $limit ) = @_;
    state $valueref = { map { $_ => $_ } 0 .. $limit };

    ...
}

这使得人们能够初始化数据结构，然后不必担心稍后将其作为参数传递。

Answer 4

哈希片？像这样的事情：

my %hash;
my $count = 10;
@hash{1..$count} = (1..$count);