配列をコピーする - Perl

配列Aの内容を配列Bにそのままコピーしたいが、どうすれば良いだろうか？

単純に代入をしてやれば良い。コピー先の配列に値が入っていた場合でもすべて上書きされてしまうので注意すること。もし配列の前か後ろに挿入したいのならpush,unshiftを用いる。

サンプル
実行結果

サンプル

#!/usr/bin/perl

;#
;#配列のコピー
;#

use strict;

#----------------------------------#
#配列の準備
#----------------------------------#
my @array_from = (1..10);       #1～10の値を入れる
my @array_to   = ();            #空の配列

#----------------------------------#
#コピー
#----------------------------------#
#-- fromの内容をtoにコピー --#
@array_to = @array_from;

#----------------------------------#
#表示
#----------------------------------#
print "$_\n" foreach(@array_to);