代码之家 › 专栏 › 技术社区 › porton

Perl哈希不能按预期工作

perl5 hashmap perl

porton · 技术社区 · 7 年前

#!/usr/bin/perl

sub f { {
  a => 1,
  b => 2
} }

sub g { {
  %{f()},
  c => 3,
  d => 4,
} }

use Data::Dumper;
print Dumper g();

以上代码输出

$VAR1 = 'a';
$VAR2 = 1;
$VAR3 = 'b';
$VAR4 = 2;
$VAR5 = 'c';
$VAR6 = 3;
$VAR7 = 'd';
$VAR8 = 4;

尽管在我看来,它应该输出

$VAR1 = {
          'a' => 1,
          'c' => 3,
          'b' => 2,
          'd' => 4
        };

我的误解是什么?

2 回复 | 直到 7 年前

Borodin 7 年前

g

use strict;
use warnings 'all';

sub foo {
    {
        a => 1,
        b => 2,
    }
}

sub bar {
    my $href = {
        %{ foo() },
        c => 3,
        d => 4,
    }
}

use Data::Dump;
dd bar();

{ a => 1, b => 2, c => 3, d => 4 }

ikegami Gilles Quénot 7 年前

sub some_sub {
   {  }     # Is this a hash constructor or a block?
}

{ }

f() g()

+

+{ }   # Must be a hash constructor.

{; }   # Perl looks ahead, and sees that this must be a block.

sub g { +{
  %{f()},
  c => 3,
  d => 4,
} }

sub g { return {
  %{f()},
  c => 3,
  d => 4,
} }

return

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

9 月前

con · Negative Lookaward在perl正则表达式中不起作用

10 月前

Carsten · 使用最近的搜索模式更改文本块

11 月前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

12 月前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

1 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

1 年前

nick · 向后交换文件名

1 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

1 年前

con · 如何跳转到foreach迭代的特定点?

1 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

1 年前