Perlでn次ハッシュを使った時のメモ

Perlでn次ハッシュを使った時のメモ

use strict;

use warnings;

my %hash;

my @array1 = ('1','2','3');

my @array2 = ('a','b','c');

my @array3 = ('A','B','C');

foreach my $value1 (@array1) {

	foreach my $value2 (@array2) {

		foreach my $value3 (@array3) {

			push(@{$hash{$value1}{$value2}},$value3);

		}

	}
}

foreach my $key1 (keys(%hash)) {

	my %hash2 = %{$hash{$key1}};

	foreach my $key2 (keys(%hash2)){

		foreach (@{$hash{$key1}{$key2}}) {

			print "$_ ";

		}

	}
}

出力結果は

A B C A B C A B C A B C A B C A B C A B C A B C A B C

あんまり意味ないな。