In Perl 5.10.1:
在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";
#!/usr/bin/p
阅读背景：
如何从引用的变量“取消链接”Perl数组引用？
来源：互联网
分享到：
