perl - indent2tree 现在禁止对标量进行实验性推送

Question

我意识到有人问过类似的问题。但是，在这种情况下，我希望使用这个开源 perl 脚本:

https://github.com/bAndie91/tools/blob/master/usr/bin/indent2tree

此行产生错误 Experimental push on scalar is now forbidden at/usr/local/bin/indent2tree line 43, near "};"

push $ForkPoint->{subtree}, {data=>$data, parent=>$ForkPoint, subtree=>[]};

我对 Perl 不是很熟悉。我确实检查了关于这个主题的几个问题，我试图通过几种不同的方式解决这个问题，但没有成功。

例如:

push @ForkPoint->{subtree}, {data=>$data, parent=>$ForkPoint, subtree=>[]};

这仍然会产生错误。

由于我的目标只是使用该工具，也许熟悉 Perl 的人可以分享解决方案。我开了一个bug在项目问题页面。

Answer 1

你需要

push @{ $ForkPoint->{subtree} }, ...

---

只要可以使用变量名，就可以使用计算为引用的 block 。这意味着以下是指定数组的有效语法:

@NAME    # If you have the name
@BLOCK   # If you have a reference

这意味着以下两个片段是等价的:

push @arary, ...

my $ref = \@array;
push @{ $ref }, ...

虽然在这种情况下不相关，但当 block 中唯一的东西是简单标量($NAME 或 $BLOCK)时，您可以省略 curl 。

push @$ref, ...

---

参见 Perl Dereferencing Syntax .