人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Perl初心者です。Perlの2次元配列について質問です。

@A(@a1, @a2, @a3, @a4)
@B(@b1, @b2, @b3, @b4)

という各要素が配列になっている配列AとBがあります。
で、これら2つの配列をくっつけて一つの配列Cにしたい ↓

@C(@c1, @c2, @c3, @c4)
ただし、各要素はそれぞれの要素をpushして1つの配列に結合したもの
@c1=(@a1,@b1)
@c2=(@a2,@b2)

のですが、foreachで@Aを回すとそれぞれの要素が配列なので、どうやっていいかわかりません。
どうコーディングすればよいでしょうか?

●質問者: cazzac
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:A1 A3 b2 B4 C3
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● b-wind
●60ポイント

基本的には Perl に多次元配列はないのでリファレンスを使用することになります。

リファレンス [Perl講座 -Smart]


@a1 = ( 'a','b' );
@a2 = ( 'c','d' );
@A = ( \@a1, \@a2 );

@b1 = ( 'A','B' );
@b2 = ( 'C','D' );
@B = ( \@b1,\@b2 );

@C = ();
for (my $i=0;$i<@A && $i<@B; $i++) {
 my $a = $A[$i];
 my $b = $B[$i];
 my @c = ( @{$a} , @{$b} );
 push @C, \@c;
}

@A と @B のサイズが違うときは考慮していません。

◎質問者からの返答

ありがとうございます。リンクが参考になります。

@Aと@Bのサイズは同じです。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ