怪異的行爲引用

Question

看一看這段代碼：

my @arr = (1, 2); 
my $ref = \@arr; 
my @s = @$ref; 
push @s, 4; 
print join(", ", @arr) . "\n"; 

出乎意料的是，輸出爲「1,2」。發生了什麼？我怎麼得到兩個不同的數組（@s是（1,2,4））？

當然我得到 「1，2，4，」 如果我寫，輸出，像這樣的事情之前：

$ref = \@s; 
@arr = @$ref; 

但似乎相當笨拙。

我習慣了其他的OOP語言，在這種語言中不會發生這樣的事情 - 一個對象可以修改，不管其引用如何。

那麼任何人都可以請幫助我嗎？

Answer 1

my @s = @$ref; 

使得複製引用的數組的。之後，@s和@arr是不相關的數組，恰好有相同的內容（有一段時間）。

如果要修改引用的數組，你必須直接使用它，例如：

push @$ref, 4; 

還有就是在Data::Alias模塊，（我認爲）讓你做什麼你問了。但是那裏有深刻的魔力，我從來沒有用過它。