配列をコピーする – Perl

  • このエントリーをはてなブックマークに追加
  • LINEで送る
この記事は 2007年5月28日 に書かれたものです

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

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

- Sponsored Link -

サンプル

#!/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

コメント

感想やご質問などお気軽にどうぞ。広告が表示されている場合は下にスクロールしてください。投稿にはSNSへのログインが必要です。

このブログを応援する

お寄せいただいたお気持ちは全額サーバ代や次の記事を執筆するための原資として活用させていただいております。この記事が参考になった場合などぜひご検討ください。

PayPal(ペイパル)
PayPalで300円支払う
※金額は任意で変更できます。
※100円でも泣いて喜びますw
※住所の入力欄が現れた場合は「no needed」を選択ください
これまでのご協力者さま
- Sponsored Link -