代码之家 › 专栏 › 技术社区 › Mark McDonald

为什么Perl在声明时将哈希元素视为列表上下文?

hash perl arrays

Mark McDonald · 技术社区 · 16 年前

#!/usr/bin/perl -w

use strict;
use warnings;

sub foo {
    return wantarray ? () : "value1";
}

my $hash = {
    key1 => foo(),
    key2 => 'value2'
};

use Data::Dumper;
print Dumper($hash);

我得到以下输出:

$VAR1 = {
  'key1' => 'key2',
  'value2' => undef
};

当我期望:

$VAR1 = {
  'key1' => 'value1',
  'key2' => 'value2'
};

我知道散列是一种偶数大小的数组(正如我得到的“散列赋值中的元素奇数”警告所证明的),但散列元素只能是标量, 为什么编译器会给它数组上下文?

2 回复 | 直到 11 年前

Quentin 16 年前

因此:

my $hash = {
    key1 => foo(),
    key2 => 'value2'
};

指:

my $hash = {
    'key1', foo(), 'key2', 'value2'
};

列表中的每个表达式都在列表上下文中求值。你可以打电话来解决这个问题 scalar foo()

brian d foy 16 年前

匿名哈希构造函数为其中的内容提供列表上下文,因为它需要一个键和值列表。就是这样,因为就是这样。我们没有在代码中表示Perl哈希的方法,因此您必须使用一个列表来替换键和值。这个 => 表示法可以帮助我们直观地理解,但并没有发挥帮助Perl理解散列类型的神奇作用。

当前上下文传播到子例程调用等,就像在任何其他情况下一样。

这允许您使用列表操作构建哈希:

 my $hash = { 
      a => 'A',  
      map( uc, 'd' .. 'f' ),
      return_list( @args ), 
      z => 'Z' 
      };

如果您需要在标量上下文中使用某些内容,只需使用 scalar :

 my $hash = { 
      a => 'A',  
      map( uc, 'd' .. 'f' ),
      'g' => scalar return_item( @args ), 
      z => 'Z' 
      };

推荐文章

Megrez7 · C#ToArray转换合并为一行,导致数组元素更改

1 年前

bairog · 从按属性筛选的对象数组字典中创建值数组

1 年前

Anka HanÄ±m · 关于结构和动态数组地址的问题

1 年前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

1 年前

Lorenzo Bertolaccini · 在Angular项目中通过对话框后,在控制台中显示但在HTML中不显示的数据数组

1 年前

MaSc. H. · 大小与阵列大小

1 年前

Geremia · 2D NumPy数组+1D数组?

1 年前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

1 年前

Paul Williams · 迭代数组时输出有问题

1 年前

Oliver Morgan · PostgreSQL错误:无法累积不同维度的数组

1 年前