perl - 有没有更好的方法在 Perl 中通过引用传递？

Question

我正在做这样的传递引用:

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);

有更清洁的方法吗？

原型(prototype)不起作用，因为我使用的是函数引用(相信我，使用函数引用是有充分理由的)。

我也不想用$_[0]无处不在repl因为它很丑。

Answer 1

你看过Data::Alias ?它允许您使用干净的语法创建词法范围的别名。

您可以使用它来创建传递引用语义，如下所示:

use strict;
use warnings;

use Data::Alias;

sub foo {
    alias my ($arg) = @_;
    $arg++;
}

my $count = 0;

foo($count);

print "$count\n";

输出为 1 ，表示调用foo修改了它的论点。