假设我有一个交换两个给定参数的子程序。从逻辑上讲,它需要具有读写参数。
sub swap($l, $r)
{
my $tmp = $l;
$l=$r;
$r=$tmp;
}
我收到错误:
Cannot assign to a read only variable ($l) or a value
我不认为我可以尝试
\$param
就像在 perl5 中一样。我想我应该尝试一下
:=
但文档没有提到有关函数参数的任何内容。如何将参数作为对该子例程的引用传递以便更改其值?
最佳答案
sub swap ( $l is rw, $r is rw ) {
($r,$l) = ($l,$r)
}
my $a = 1;
my $b = 2;
swap $a, $b;
say $a; # 2;
my @a[2] = 1,2;
swap |@a;
say @a; # [2 1]
您可以使用
reverse
以及您想要完成的工作。my $a = 1;
my $b = 2;
($a,$b) .= reverse;
say $a; # 2
say $b; # 1
关于raku - 如何使make子程序参数为readwrite,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41470688/