配列をコピーする - Perl

この記事は2007年05月28日に書かれた物です

配列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);

実行結果

1
2
3
4
5
6
7
8
9
10

関連書籍

chromatic, Damian Conw…
ISBN 4873113148
¥ 9,725

failed to fetch data: unkown error

コメント

コメントを入力. Wiki文法が有効です:
Z I Q P D