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

Question

我需要创建这样的东西:

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

根据某些条件,它可能高达40,或50或60.在每种情况下,它将是连续的整数,如示例中所示.一旦创建,它将永远不会被更改,只需传递给预先存在的子例程.由于键和值都是连续的,我也可以使用for循环创建哈希.我很好奇什么是创建哈希的最快和/或最有效的方法？或者,如果还有另一种方式可以做到的话？

Answer 1

使用地图就足够了:

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 };

    ...
}

这使得人们可以初始化数据结构,然后不必担心稍后将其作为参数传递.