perl 子函数修改原变量

shinefuture · 发表于 2016-9-26 11:21:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

比如 $a = "abc";想经过子函数处理后 $a = "cdf"

希望是这样
$a = "abc”;
&chage( $a );
print "$a"  结果是 cdf

不想这样:
$a = "abc”;
$a = &chage( $a );
print "$a"  结果是 cdf

该如何写这种子函数，谢谢！

mndzjsjczex · 发表于 2016-9-26 11:44:19

本帖最后由 mndzjsjczex 于 2016-9-27 15:41 编辑

回复 1# shinefuture

嗯，想要这样的话，基本是要靠引用来完成的。比如

my $a = 0; &chage( \$a );

sub chage
{
  my $var_r = shift;
  #操作时都用$$var_r，或者再多写一行把他先解引用出来
  $$var_r++;
}

[求助] perl 子函数修改原变量

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

站长推荐 /2