perlでの三次元配列の作り方

質問

perlで三次元配列をテキスト入力から作りたいのですが、例えば二次元配列の場合
foreach $line (@input)
push @data, [split /[:]/, $line];
で@dataが二次元配列になるのですが、三次元配列の場合このあとに
push @output, \@data;
とするとリファレンスが同じであるためループをまわしてもうまく三次元になりませんよね。
解決法はありますでしょうか？

回答No.2

ryu_chan

いわゆるdeep copyをしたいわけでしょうか？
Storableモジュールのdclone関数を使えばdeep copyしてくれると思います。

use Data::Dumper;
use Storable qw(dclone);

my (@data, @output);
my @input = qw(1:2 a:b);

foreach $line (@input) {
push @data, [split /:/, $line];
push @output, dclone(\@data);
}

print Dumper \@output;

回答No.1

Tacosan

そもそも Perl だと
foreach $line (@input)
push @data, [split /[:]/, $line];
とは書けない.

本題は「リファレンスが同じになることが問題」であるなら「必ずリファレンスが違うようにすればいい」ということになる. 適切に my するのが最も簡単か.

あと,
push @data, [split /[:]/, $line];
には違和感がある.
push @data, [split /:/, $line];
で十分では?