如何从Perl中的地图返回hashrefs列表？

Question

我有以下几乎正常的代码：

my $results = { data => [
   map {
      my $f = $_->TO_JSON;
      $f->{display_field} = $_->display_field($q);
      $f;
   } $rs->all
]};

只有我更喜欢它更像是以下内容：

my $results = { data => [
   map {
      %{$_->TO_JSON},
      display_field => $_->display_field($q),
   }, $rs->all
]};

但是这会产生语法错误。 我怎样才能做我想要的，或者我现在的版本是最好的？

更新 ：抱歉以前的额外分号。 现在已经很晚了。 不知道我是怎么错过它的。 多谢你们！

Answer 1

它只提供语法错误，因为Perl认为你需要在map { ... }之后省略逗号，因为它将该映射解析为块，而不是表达式。 把+放在前面会解决这个问题。 此外，您不能在匿名哈希中使用分号：

my $results = { data => [
   map +{
#      ^----------------- plus sign added
      %{$_->TO_JSON},
      display_field => $_->display_field($q);
#                                           ^---- should be comma or nothing
   }, $rs->all
]};

Answer 2

问题是Perl看起来不够远，无法确定{意味着“启动匿名哈希引用”还是“启动代码块”。 它应该 （理想情况下）查看相应的}并查看是否存在逗号，并采取相应的行动，但事实并非如此。 它只是看起来有点前进并试图猜测。 这次是错的，你得到一个不应该存在的逗号的语法错误，除了它应该不移动它。

perldoc -f map会告诉你所有这些。 基本上，它说如果你把+{ ，Perl会理解这意味着“不是代码块”并猜测它是一个哈希引用。 这可能是您的语法错误的原因。 作为另一个建议，可能会说map({ HASH STUFF }, $rs->all) - 我打赌钱Perl不会猜测它是这里的代码参考。

我无法让它工作，但没有$rs或->TO_JSON或一个名为$q的变量我无论如何都无法使用任何这个。 我希望这有帮助。 如果没有，请发布更多代码。 别担心，我们不咬人。

此外，虽然我们在这，但为什么不这样写：

my $results;
$results->{data} = [ map MAGIC MAP STUFF, $rs->all ];

可能有可能更具可读性，特别是如果你同时在$results添加了很多东西。

Answer 3

我不完全确定你正在寻找什么样的结构。 第一个示例中的map已经返回hashrefs列表（每个版本的$f ）。

如果您只想要与第二个示例类似的语法，那么您几乎是正确的; 你需要摆脱你的地图块中无关的分号，并使用一对curlies来制作一个匿名的散列引用。

就像是：

my $results = { data => [
    map { { %{$_->TO_JSON},
            display_field => $_->display_field($q)
          }
    } $rs->all
]};

Answer 4

我总是在块形式中使用map，并构造代码以便于分离。 虽然你可以在开头卷曲前放一个+来使用表达形式，但这对你真的很重要吗？

除了发生的一切，你的第一个例子看起来很好。 继续前进并解决实际问题。 :)