perl - 如何在 Perl 中引用数组切片？

Question

您将如何引用数组切片，以便在修改切片引用的元素时修改原始数组？

以下代码由于@_别名魔术而起作用，但对我来说似乎有点破解：

my @a = 1 .. 10;
my $b = sub{\@_}->(@a[2..7]);
@$b[0, -1] = qw/ < > /;
print "@a\n";
# 1 2 < 4 5 6 7 > 9 10

有人有更好/更快的方法吗？

编辑：上面的代码示例只是为了说明@a 和 $b 之间所需的关系，它绝不反映此功能将在生产代码中使用的方式。

Answer 1

Data::Alias似乎能够做你想做的事：

#!/usr/bin/perl

use strict; use warnings;

use Data::Alias;

my @x = 1 .. 10;

print "@x\n";

my $y = alias [ @x[2 ..7] ];
@$y[0, -1] = qw/ < > /;

print "@x\n";

输出：

1 2 3 4 5 6 7 8 9 10
1 2 < 4 5 6 7 > 9 10

Answer 2

你就是这样做的，是的。想一想，这不是一个黑客。它只是使用 Perl 的特性将任意左值组装成一个数组，然后引用它。

你甚至可以使用它来推迟哈希值的创建：

$ perl -wle'my %foo; my $foo = sub{\@_}->($foo{bar}, $foo{baz}); print "before: ", keys %foo; $foo->[1] = "quux"; print "after: ", keys %foo'
before: 
after: baz