从键获取引用()

blu*_*112 0 perl

我有一个数组:

my @y = keys(%{$table->{fields}});
Run Code Online (Sandbox Code Playgroud)

我想得到该数组的引用:

$columns = \@y;
Run Code Online (Sandbox Code Playgroud)

有没有办法在一行上执行此操作?

Сух*_*й27 6

是的,你可以分配$columns给anon数组引用,

my $columns = [ keys %{$table->{fields}} ];
Run Code Online (Sandbox Code Playgroud)