小粋空間  -  a cheap joke and a play on words site

Perlの2次元配列でpushする方法

Perlの2次元配列でpushする方法を紹介します。

１．問題点

Perlで配列変数を定義します。

my @foo;

pushするには次のようにします。

push @foo, "OK";

配列のリファレンスの場合、

my $foo;

pushするには次のようにします。

push @{$foo}, "OK";

が、2次元配列でpushする方法が分かりません。

２．2次元配列でpushする

2次元配列でpushするには次のようにします。なお、1次元はpushする位置を特定させるため「0」「1」という値で指定します。

#!/usr/bin/perl
use strict;
use Data::Dumper;
 
my @foo;
push @{$foo[0]}, "1-1";
push @{$foo[0]}, "1-2";
push @{$foo[1]}, "2-1";
push @{$foo[1]}, "2-2";
 
print Dumper(\@foo);

上記のコードを実行すると、次のようになります。

$VAR1 = [
          [
            '1-1',
            '1-2'
          ],
          [
            '2-1',
            '2-2'
          ]
        ];

配列のリファレンスの場合は次のようにします。

#!/usr/bin/perl
use strict;
use Data::Dumper;
 
my $foo;
push @{$foo->[0]}, "1-1";
push @{$foo->[0]}, "1-2";
push @{$foo->[1]}, "2-1";
push @{$foo->[1]}, "2-2";
 
print Dumper($foo);

上記のコードを実行すると、次のようになります。

$VAR1 = [
          [
            '1-1',
            '1-2'
          ],
          [
            '2-1',
            '2-2'
          ]
        ];

３．最後のインデックスで指定する

記事の主旨からはずれますが、pushを用いないのであれば「Perlの配列のリファレンスで最後のインデックスを指定する」で紹介したような、最後のインデックスを指定して設定する方法もあります。

配列の場合、次の赤色部分のようにします。

push @{$foo[0]}, "1-1";
push @{$foo[0]}, "1-2";
push @{$foo[1]}, "2-1";
push @{$foo[1]}, "2-2";
$foo[0][$#{$foo[0]}+1] = "1-3";

配列のリファレンスの場合、次の赤色部分のようにします。

push @{$foo->[0]}, "1-1";
push @{$foo->[0]}, "1-2";
push @{$foo->[1]}, "2-1";
push @{$foo->[1]}, "2-2";
$foo->[0]->[$#{$foo->[0]}+1] = "1-3";

４．pushと最後のインデックスで指定する

pushと最後のインデックスの組み合わせで指定する方法も紹介します。

この方法では常に2次元の最後に値が追加されます。また、値が事前に設定されていることが前提になります。

配列の場合、次の赤色部分のようにします。

push @{$foo[0]}, "1-1";
push @{$foo[0]}, "1-2";
push @{$foo[1]}, "2-1";
push @{$foo[1]}, "2-2";
push @{$foo[$#foo]}, "2-3";

配列のリファレンスの場合、次の赤色部分のようにします。

push @{$foo->[0]}, "1-1";
push @{$foo->[0]}, "1-2";
push @{$foo->[1]}, "2-1";
push @{$foo->[1]}, "2-2";
push @{$foo->[$#$foo]}, "2-3";