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

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

hash perl arrays

Mark McDonald · 技术社区 · 15 年前

#!/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 回复 | 直到 9 年前

Quentin 15 年前

因此:

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

指:

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

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

brian d foy 15 年前

匿名哈希构造函数为其中的内容提供列表上下文,因为它需要一个键和值列表。就是这样,因为就是这样。我们没有在代码中表示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' 
      };

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

2 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前