切分数组的引用

Question

我有以下地图：

my %cps_per_level = (
                     Bronze      =>  [100 , 65  ],
                     Silver      =>  [200 , 125 ],
                     Gold        =>  [400 , 250 ],
                     Platinum    =>  [800 , 500 ],
                     Diamond     =>  [1200, 750 ],
                     Master      =>  [2000, 1200],
                     Grandmaster =>  [3000, 1750],
                );

在我的代码中，我希望获得两个变量的特定条目的列表的两个值。我的第一次尝试是取消引用特定条目的列表，然后应用列表切片并将其分配给我想要的变量，如下所示。在这里，$level持有地图的一个键。

my ($cps_before, $cps_after) = $cps_per_level{$level}[0,1];

但这不管用。$cps_before获得列表的第一个值，但$cps_after什么也得不到。我用两行写了这篇文章，成功地做到了这一点：

my $cps_before= $cps_per_level{$level}[0];
my $cps_after = $cps_per_level{$level}[1];

我的问题是:为什么切片不起作用？我遗漏了什么？

Answer 1

那不是一块。如果您有一个@array，那么一个切片应该如下所示：

@array[0, 1, 2]

你写的东西相当于：

$array[0, 1, 2]

..。它在标量上下文中使用,，并与$array[2]等效。

事实上,

$cps_per_level{$level}[0,1]

是简写

$cps_per_level{$level}->[0,1]

这是语法糖

${ $cps_per_level{$level} }[0, 1]

这意味着

${ $cps_per_level{$level} }[1]

相反，你应该做的是：

@{ $cps_per_level{$level} }[0, 1]

@意味着您正在尝试获取多个元素。

如果您的perl足够新(5.20，从5.24开始不再是实验性的)，您还可以使用后缀取消引用表单，如下所示：

$cps_per_level{$level}->@[0, 1]