とあるエンジニアの闇歴史帳

コピペで使える便利Wiki ※現在構築中です。

ユーザ用ツール


perl:array_copy

差分

このページの2つのバージョン間の差分を表示します。

この比較画面にリンクする

perl:array_copy [2017/12/14 20:18]
perl:array_copy [2020/06/23 14:10] (現在)
行 1: 行 1:
 +====== 配列をコピーする - Perl ======
 +~~socialite~~
 +<note important>この記事は2007年05月28日に書かれた物です</note>
 +
 +配列Aの内容を配列Bにそのままコピーしたいが、どうすれば良いだろうか?
 +
 +単純に代入をしてやれば良い。
 +コピー先の配列に値が入っていた場合でもすべて上書きされてしまうので注意すること。もし[[array_push_unshift|配列の前か後ろに挿入したいのならpush,unshiftを用いる]]。
 +
 +===== サンプル =====
 +<code perl>
 +#!/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);
 +</code>
 +
 +===== 実行結果 =====
 +<code>
 +1
 +2
 +3
 +4
 +5
 +6
 +7
 +8
 +9
 +10
 +</code>
 +
 +===== 関連書籍 =====
 +{{amazon>jp:4873113148}}
 +<html><p style="clear:both"></p></html>
 +
 +{{amazon>jp:4798139815}}
 +<html><p style="clear:both"></p></html>
 +
 +{{tag>CGI・Perl例文集 Perl 配列 リスト コピー}}
 +~~socialite~~
  

関連ページ