如何将子例程调用的结果分配给Perl中的数组引用?

Cth*_*har 3 arrays perl reference

是否可以将数组变量赋值给数组引用而不是标量变量?

而不是这个:

($a, $b) = some_sub(\@d, \@e);
Run Code Online (Sandbox Code Playgroud)

我想要这样的东西:

(@x, @y) = some_sub(\@x1, \@y1);
Run Code Online (Sandbox Code Playgroud)

如果是这样,我怎么能取消引用它.就像前者一样,@$xxxx对我们来说也是如此.

谢谢.

小智 7

你可以分2步完成(实际上3行):

my ($x_ref, $y_ref) = some_sub(\@x1, \@y1);
my @x = @{ $x_ref };
my @y = @{ $y_ref };
Run Code Online (Sandbox Code Playgroud)

问题是 - 简单地抛弃直接数组并开始在任何地方使用引用都不简单吗?