Perl 子参考语法 [英] Perl sub reference syntax

问题描述

那里 - 刚开始学习 Perl.

there - just started learning Perl.

这就是我将数组放入子函数所做的工作 - 可以在 1 行中更简单地完成吗?

This is what I'm doing to get an array into a subfunction - can it be done simpler in 1 line?

sub my_sub {
    my $ref_array = shift;
    my @array = @$ref_array;
}

推荐答案

如果你也想要shift的效果，

sub my_sub {
    my @array = @{+shift};
}

一元 + 运算符 强制shift 被视为表达式，而不是变量名.(否则 @{shift} 与 @shift 的意思相同.)

The unary + operator forces shift to be treated as an expression, not a variable name. (Otherwise @{shift} means the same as @shift.)

这篇关于Perl 子参考语法的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！