如何在 Perl 中连接别名数组？

Question

如何在 Perl 中连接别名数组以使结果数组也包含别名？

我想出的解决方案是：

my ($x, $y, $z) = 1 .. 3;

my $a1 = sub {\@_}->($x);

my $a2 = sub {\@_}->($y, $z);

my $a3 = sub {\@_}->(@$a1, @$a2);

say "@$a3";  # 1 2 3

$_++ for $x, $y, $z;

say "@$a3";  # 2 3 4

我不喜欢的是要创建 $a3 我必须完全解压 $a1 和 $a2.对于短数组，这不是问题，但随着数据变大，这意味着别名数组上的所有数组操作都是 O(n)，包括传统上的 O(1) code> 操作，例如 push 或 unshift。

Data::Alias 可以提供帮助，但它不适用于最新版本的 Perl。 Array::RefElem 包含 API 原语 av_store 和 av_push 的包装器，可用于实现此功能。所以这样的事情是可行的：

sub alias_push (\@@) {
    if (eval {require Array::RefElem}) {
       &Array::RefElem::av_push($_[0], $_) for @_[1 .. $#_]
    } else {
       $_[0] = sub {\@_}->(@{$_[0]}, @_[1 .. $#_])
    }
}

我有兴趣知道是否还有其他方法。特别是如果有任何其他方法仅使用核心模块的话。

Answer 1

这是您可能需要 Perl 中的链接列表的情况之一吗？ Steve Lembark 发表演讲，讨论人们应该重新考虑滚动和展开数组的各种情况。

我很好奇为什么你必须这样做。并不是说我怀疑有什么奇怪的事情；我只是对这个问题感到好奇。