在 Perl 5.10.1 中:
#!/usr/bin/perl
my @a = (1, 2, 3);
my $b = \@a;
print join('', @{$b}) . "\n";
@a = (6, 7, 8);
print join('', @{$b}) . "\n";
这将打印 123,然后打印 678。但是,我希望两次都得到 123(即重新分配 @a
的值不会更改 $b
的数组引用)。我怎样才能做到这一点?
最佳答案
引用 @a
的副本。
my $b = [ @a ];
关于perl - 如何从引用的变量中获取 "unlink"Perl 数组引用?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3111566/