配列をコピーする
配列Aの内容を配列Bにそのままコピーしたいが、どうすれば良いだろうか？
単純に代入をしてやれば良い。
コピー先の配列に値が入っていた場合でもすべて上書きされてしまうので注意すること。もし配列の前か後ろに挿入したいのならpop,unshiftを用いる。
○実行結果
コピー先の配列に値が入っていた場合でもすべて上書きされてしまうので注意すること。もし配列の前か後ろに挿入したいのならpop,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);
○実行結果
1
2
3
4
5
6
7
8
9
10
2
3
4
5
6
7
8
9
10
