perl - 是否可以在 Perl 中增加标量引用？

Question

假设我有一个号码，$x = 0;我想用子程序增加它，但子程序不会返回它的值:

sub increment {
    my ($var) = @_;

    my @list = (
        'a',
        'b',
        'c',

        ...

        'x',
        'y',
        'z'
    );

    return $list[$var++];
}

while ($x < 10) {
    print increment($x);
}

按原样，这将打印 aaaaaaaaaa永远代替 abcdefghij .如果我更换 increment($x)与 increment(\$x) ，它将标量地址转换为十进制数，然后将其递增。在上面的场景中，它最终会抛出一个错误，因为 25423331 或任何不是有效的数组元素。

如果 $x 是散列或数组中的一个元素，我可以将父元素作为引用传递来修改原始元素:

$x = {'val' => 0};
while ($x->{'val'} < 10) {
    print increment($x);
}

sub increment {
    ...
    return $list[$var->{$val}++];
}

如何修改标量引用的原始值？

Answer 1

您可以传递对要修改的变量的引用。

sub increment {
    my ($ref) = @_;
    ++$$ref;
}

my $i = 0;
say $i;  # prints 0
increment(\$i);
say $i;  # prints 1

您还可以利用 Perl passes by reference 的事实。 .

sub increment {
    ++$_[0];
}

my $i = 0;
say $i;  # prints 0
increment($i);
say $i;  # prints 1

但是这样隐藏增量是一个非常糟糕的主意。要么迭代一个列表，

for my $x ('a'..'z') {
   ...
}

或者写一个迭代器。

sub make_iter {
   my @list = 'a'..'z';
   return sub {
      return @list ? () : shift(@list);
   };
}

my $iter = make_iter();
while (my ($x) = $iter->()) {
   ...
}