[perl] push で二次元配列を作成する


@allRecords = ();
@record1 = ('a', 'b', 'c');
@record2 = ('1', '2', '3');
push (@allRecords, \@record1);
push (@allRecords, \@record2);

@allRecords = ();

@record1 = ('a', 'b', 'c');

@record2 = ('1', '2', '3');

push (@allRecords, \@record1);

push (@allRecords, \@record2);

@allRecords は以下のようになる。


[ [ 'a', 'b', 'c'] , ['1', '2', '3'] ]

[ [ 'a', 'b', 'c'] , ['1', '2', '3'] ]

コメントを残すコメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。