我正在做像这样的传递：
- use strict;
- use warnings;
- sub repl {
- local *line = \$_[0]; our $line;
- $line = "new value";
- }
- sub doRepl {
- my ($replFunc) = @_;
- my $foo = "old value";
- $replFunc->($foo);
- print $foo; # prints "new value";
- }
- doRepl(\&repl);
这样做有更清洁的方法吗？
原型不起作用,因为我正在使用函数引用(相信我有一个使用函数引用的充分理由).
我也不想在repl中使用$_ [0]因为它很难看.
解决方法
你看过
Data::Alias吗？它允许您使用干净的语法创建词法范围的别名.
您可以使用它来创建像这样的传递引用语义：
- use strict;
- use warnings;
- use Data::Alias;
- sub foo {
- alias my ($arg) = @_;
- $arg++;
- }
- my $count = 0;
- foo($count);
- print "$count\n";