将元素插入到哈希散列中perl

Question

我有一个数组。数组中的元素在它们之间包含分号。

阵列看起来是这样的：

@Array = { "AUT;E;1", 
      "AUT;E;2", 
      "CHE;A;1", 
      "CHE;C;4" 
     }; 

我想分割使用数组元素“;” （分号）作为分隔符。

通过使用散列欲存储“AUT”作为键，并根据该散列要存储E => 1和E => 2.

即我所需要的散列作为

%HashOfElem = (
     'AUT' => { 
        'E' => 1, 
        'E' => 2 
        }, 

     'CHE' => { 
        'A' => 1, 
        'C' => 4 
        } 
      ) 

为此我写了下面的代码如预期:(

foreach(@Array) 
{ 
    my @TmpArray = split(/;/,$_); 

    %HashOfElem = (
       $TmpArray[0] => { 
            $TmpArray[1] => $TmpArray[2] 
           } 
       ); 

}未表现

如果我的方法错了，那么perl中的哪个数据结构可以用来达到上述目的？

请帮助..

Answer 1

需要注意的是你做错了assignement到@array，它应该是（括号，而不是大括号）：

根据最新评论：

my @array = (
    "AUT;E;1", 
    "AUT;E;2", 
    "CHE;A;1", 
    "CHE;C;4" 
); 

所以你的脚本变成：

my @array = (
    "AUT;E;1", 
    "AUT;E;2", 
    "AUT;E;2", 
    "CHE;A;1", 
    "CHE;C;4" 
); 
my %hash; 
my %dups; 
foreach (@array) { 
    next if exists $dups{$_}; # skip this line if already stored 
    $dups{$_} = 1; 
    my @tmp = split/;/; 
    push @{$hash{$tmp[0]}{$tmp[1]}}, $tmp[2]; 
} 
say Dumper\%hash; 

输出：

$VAR1 = { 
      'CHE' => { 
        'A' => [ 
           '1' 
          ], 
        'C' => [ 
           '4' 
          ] 
        }, 
      'AUT' => { 
        'E' => [ 
           '1', 
           '2' 
          ] 
        } 
     }; 

Answer 2

如前所述，哈希键必须是唯一的。一种方法是让每个内部散列键指向该键的一组值：

use strict; 
use warnings; 

my @Array = ( 
    "AUT;E;1", 
    "AUT;E;2", 
    "CHE;A;1", 
    "CHE;C;4" 
); 
my %HashOfElem; 

foreach(@Array) 
{ 
    my @TmpArray = split(';',$_); 
    print "@TmpArray\n"; 

    push @{$HashOfElem{$TmpArray[0]}{$TmpArray[1]}}, $TmpArray[2]; 
} 

#show variable. 
use Data::Dumper; 
print Dumper %HashOfElem;