_ [ソフトウェア] Perlで配列の配列に配列を代入する方法

調べてみて驚いた。Perlっていつの間にかリファレンス（C言語で言うところのポインタ）などというものを実装していたんて。

私のPerlの知識はかれこれ10年以上前にリリースされたVer.4で止まっているので、現行のVer5.8とはまさに隔世の差がありますね。

正直、かなりのカルチャーショックを受けました。

まぁそんな訳で色々と新発見をしつつ勉強した結果、配列@arrayの中にさらに配列が入っていた場合、要素はリファレンスになるので、

$data=$array[0];

のように配列@arrayの中から要素を取り出すと、$dataは配列の実態ではなくリファレンスの状態です（つまり@arrayはC言語で言うところのポインタ配列なんですね）。これを実体として扱うには@$dataとすればよく、また配列のリファレンスの中にアクセスしたいならば$$data[i]で取り出せるそうな。

リファレンス変数の前に$とか@とか%とかを付けると実体になるなんて、なんかポインタ変数の実体を取り出すのと同じイメージで、ますますC言語っぽいですね。

そして今回の目的である、取り出したリファレンス$dataの実体である配列に要素（今回は配列）を追加したいならば、

push @$data, [@hoge];

で万事終了です。

そういえば、無名配列 [ ] っていうのもVer.4では無かったなぁ。

[ツッコミを入れる]

ツッコミ・コメントがあればどうぞ! E-mailアドレスは公開されません。

[TrackBack URL: http://www.kokoro-navi.com/diary/tb.rb/20060911]

本日のリンク元


		2006年 9月
日	月	火	水	木	金	土
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

アキハバラ自腹日記 Part2.1

2006-09-11 [Mon]

_ [ソフトウェア] Perlで配列の配列に配列を代入する方法

過去の日記を検索	help