我必须对Perl脚本进行修改,这是我第一次理解Perl的尝试.我看到以下内容：
- my %trades;
- ...
- foreach my $row (@$rows) {
- @{$trades{pop @$row}} = @$row;
- }
我感到困惑,因为看起来我们弹出数组@ $row中的最后一个项目,并将％trades的哈希键设置为弹出的项目,并将该值设置为@ $row.
这个理解正确吗？
解决方法
要了解这段代码,我们需要清楚三件事情：
>评估顺序：
- EXPR_A = EXPR_B
在评估EXPR_A之前评估EXPR_B.
>复制语义：
- @new_array = @old_array
将@old_array的值复制到@new_array.
>复制数据结构的解释：
- @{ $trades{$key} }
在％trades哈希中访问名为$key的条目,并将其视为数组引用.
一起,您的代码相当于此：
- foreach my $row (@$rows) {
- my @copy = @$row;
- my $key = pop @$row;
- @{ $trades{$key} } = @copy;
- }
(同时保留所有副作用我可以看到)
所以例如
- $rows = [
- [1,2,"keyA"],[3,4,"keyB"],];
会创造
- %trades = (
- keyA => [1,keyB => [3,);
- $rows = [
- [1,2],4],];
谁写的这一行对评估顺序有非常精确的知识,并喜欢酷刑维护程序员.