如何有效地创建连续数字的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);