perl - 是否支持散列上的 postderef 语法？

Question

假设我有

my %foo;

我可以设置 key 吗 foo , bar , baz至 a b c通过切片并使用后缀表示法进行并行分配？

%foo->@{qw/foo bar baz/} = qw/a b c/

我使用了这种语法，我被告知它只是“意外工作”。我没有看到它产生警告，我也没有看到它在任何地方记录。这种行为是否受支持？

Answer 1

->左侧应该是一个返回引用的表达式。使用其他任何东西，风险自负。
%foo->{a}曾经工作。

$ 5.10t/bin/perl -e'my %foo; %foo->{a} = 1; print "ok\n";'
ok

这被认为是错误。

$ 5.12t/bin/perl -e'my %foo; %foo->{a} = 1; print "ok\n";'
Using a hash as a reference is deprecated at -e line 1.
ok

$ 5.20t/bin/perl -e'my %foo; %foo->{a} = 1; print "ok\n";'
Using a hash as a reference is deprecated at -e line 1.
ok

$ 5.22t/bin/perl -e'my %foo; %foo->{a} = 1; print "ok\n";'
Can't use a hash as a reference at -e line 1.

没有理由相信 %foo->@{...}比 %foo->{...} 更有效.

错误 reported .