如何使用数组中的元素值在PERL中定义一组哈希？

Question

我的问题显示在标题中。

我有原始数据，其中可能包含各种元素。我想定义名称基于原始元素的哈希。这是一个例子。

my $line="SI AL";
my @values=split(/\s+/,$line);chomp(@values);

我想使用元素值（例如“ SI”和“ AL”）来定义哈希，例如％hash_SI_CN_tot_amt，％hash_AL_CN_tot_amt，其中“ SI”和“ AL”应为变量 。如何使用变量值定义哈希？任何进一步的建议将不胜感激。

Answer 1

进一步建议：don't do this。

请改用多维哈希。

@values = ("SI","AL");
...
$hash_CN_tot_amt{"SI"}{$key} = $value;
$hash_CN_tot_amt{$values[1]}{$key2} = $value2;