小编frr*_*frr的帖子

我认为我对 Perl 参考资料以及如何使用它们有所了解。我开始接触 Perl 5.005。现在我有一段代码，是用 Perl 5.32 新鲜编写的，其中一些数组引用操作的行为让我感到困惑。

这是我的最小示例：

#!/usr/bin/perl

my $array_ref = (); # create an anonymous array and keep a reference to it
my $another_ref = $array_ref; # assign the reference (not an array deep copy, or is it?)

print "Pushing foo and bar\n";
push @{ $array_ref }, "foo";
push @{ $array_ref }, "bar";

print "Array ref element count: " . $#{ $array_ref } . "\n";
print "Another ref element count: " . $#{ $another_ref } . "\n"; …