Perl如何修改参数

Question

SOCKET recv 函数如何直接修改标量 $PDU 的值？ 通常这种语法是按值传递而不是按引用传递，至少到目前为止我是这样认为的。

my $PDU; 
my $addr = $socket->recv($PDU, MAXBYTES);

我想将此效果用于我自己的目的，所以 最好是一个方便的测试子程序，描述如何实现这一点。

喜欢：

my $PDU="orig";
sub test {
  my $par1=shift;
  $par1="test";
}
print "$PDU\n";

如您所知，这将导致“原始”而不是“测试”。

提前谢谢你。

亲切的问候， 赫尔曼

Answer 1

当你的函数有这样的行为时，应该有很好的记录，

my $PDU="orig";
sub test {
  $_[0] = "test";
}

test($PDU);
print "$PDU\n";

或

sub test {
  my ($par1) = map \$_, @_;

  $$par1 = "test";
}

输出

test