Передавая ссылку в качестве аргумента и не называя ее в Perl

Question

поэтому у меня есть что-то вроде этого:

@result = myfun \@args;

Я хочу сделать что-то вроде этого:

sub myfun{
foreach (@@_){ $_ = $_**2; } #foreach element the argument is referring to square the element
return @@_; # return the list that the argument is referring to
}

Есть ли способ сделать это?

Answer 1

Как упоминалось ранее, можно просто использовать

sub myfun { map { $_ ** 2 } @{ $_[0] } }

my @args = 1..5;
say for myfun(\@args);

Но нужно задаться вопросом, почему вы хотите передать ссылку.Следующее проще:

sub myfun { map { $_ ** 2 } @_ }

my @args = 1..5;
say for myfun(@args);

Если у вас есть ссылка на внешнюю сторону, вы всегда можете сгладить ее там, а не в подпункте.

sub myfun { map { $_ ** 2 } @_ }

my $args = [ 1..5 ];
say for myfun(@$args);

Answer 2

Вы можете попробовать:

my @args = 1..5;
my @result = myfun( \@args );
say for @result;

sub myfun{
    map {$_**2} @{$_[0]};
}

выход

1
4
9
16
25

Answer 3

Как сказать Perl, выбрать элемент @_ и разыменовать его без создание дополнительных ссылок или переменных?

Чтобы разыменовать элемент @_, скажем, $_[0], вы заключаете его в {} и помещаете его в любой тип синтаксиса, где у вас будет имя переменной (исключая сигилу). Например. @{$_[0]} вместо @array или ${$_[0]}[0] вместо $array[0].

См. http://perlmonks.org? Node = References + quick + reference для дополнительных примеров.