ハッシュに保存した配列を取得する方法

質問

ハッシュに保存した配列を取り出すサンプルを2ケース作成したのですがいずれもうまくいきませんでした。
1ケース目は「value=sample2」、2ケース目は「value=5」と表示されてしまいました。
いずれも@array2の内容が表示されることを期待していたのですがどのように修正すればよろしいでしょうか？

my @array1 = (0, 1, 2, 3, 4);
my @array2 = (5, 6, 7, 8, 9);

# 1ケース目_ハッシュを使用
my %total = (
sample1 => @array1,
sample2 => @array2
);

# 結果表示1
my @res = %total{sample2};
for (my $i = 0; $i < @res; $i++) {
print 'value=' . $res[$1] . "\n";
}

# 2ケース目_ハッシュのリファレンスを使用
my $total2 = {
sample1 => @array1,
sample2 => @array2
};

# 結果表示2
my @res2 = $total2->{sample2};
for (my $i = 0; $i < @res2; $i++) {
print 'value=' . $res2[$1] . "\n";
}

回答No.1

SPIKE-NLOS · ベストアンサー

1ケース目の場合、ハッシュのキーを指定する際に、文字列をクォートで囲む必要があります。また、ハッシュの値に配列を指定する場合は、配列リファレンスを指定する必要があります。以下のように修正してみてください。

```
my @array1 = (0, 1, 2, 3, 4);
my @array2 = (5, 6, 7, 8, 9);

# 1ケース目_ハッシュを使用
my %total = (
'sample1' => \@array1,
'sample2' => \@array2
);

# 結果表示1
my @res = @{$total{'sample2'}};
for (my $i = 0; $i < @res; $i++) {
print 'value=' . $res[$i] . "\n";
}
```

2ケース目の場合、ハッシュの値に配列を指定する場合は、配列リファレンスを指定する必要があります。以下のように修正してみてください。

```
my @array1 = (0, 1, 2, 3, 4);
my @array2 = (5, 6, 7, 8, 9);

# 2ケース目_ハッシュのリファレンスを使用
my $total2 = {
'sample1' => \@array1,
'sample2' => \@array2
};

# 結果表示2
my @res2 = @{$total2->{'sample2'}};
for (my $i = 0; $i < @res2; $i++) {
print 'value=' . $res2[$i] . "\n";
}
```

以上、ご参考になれば幸いです。

補足

ご回答ありがとうございます。
ハッシュのキーをクォートで囲むのと配列をリファレンスで渡してあげることにより配列として取得できるようになりました。しかし、「5, 6, 7, 8, 9」が表示されることを期待したのですが「5, 5, 5, 5, 5」となぜか全て5が表示されてしまいました。