配列のコピー

@で始まる配列オブジェクトに、@で始まる配列オブジェクトを代入するだけでコピーできる。

配列をコピーする - Perl - とあるエンジニアの闇歴史帳

参照渡しではなく、値渡しなので、まるごとコピー。
そうなっているかチェックするために、コピー後に$ary1[0]と$ary2[2]の値を変更して影響が出ないかどうかをみている。

$ perl array.pl
10
20
30
10
20
30
40
20
30
10
20
50
$

変更したからもう一方に影響されることはなかった。
ちゃんとコピーになっている。

Sample/perl/array/copy/src/array at master · bg1bgst333/Sample · GitHub