请教用perl多维哈希存储表格对应关系的问题

feiying00917

关于Perl多维哈希的问题， 我经常遇到这样一种表格结构，如下，以\t分割

InstUin        Netlist        RefDes        Component        UinNum        SchUinName        UinName
J1:1:U3_3V_U1        1        J1        SAS_29UIN        U1        3.3V_1        U3_3V_U1
J1:1:GND_U10        1        J1        SAS_29UIN        U10        GND10        GND_U10
J1:1:READY_LED        1        J1        SAS_29UIN        U11        READY_LED        READY_LED
J1:1:GND_U12        1        J1        SAS_29UIN        U12        GND11        GND_U12
J1:1:U12V_URECHARGE        1        J1        SAS_29UIN        U13        12VURCHG        

我想存储表格与数据的对应关系，想用这样的哈希结构，$hash->{'InstUin'}->{"J1:1:U3_3V_U1"}->{"Netlist"}="1"， $hash->{'InstUin'}->{"J1:1:U3_3V_U1"}->{"Refdes"}="J1"，
类似是哈希的第一维键是InstUin，第二维键是J1:1:U3_3V_U1，J1:1:GND_U10....
第三维键是Netlist，Refdes......(表头），通过访问哈希的任何一层键值，就可以得到我想要对应的数据，
类似这样一种结构，请问这样的结构可以实现吗，求帮忙！

iamlimeng

看小骆驼！

104359176

很悬，因为哈希不允许有重复的值。这种结构的数据，最好用数组的哈希来实现。在 Ruby 的 Rail 中，是用一个类来虚拟一个表，用对象的数组来模拟记录，然后用属性访问的形式来访问值。如果这个数据有不重复的索引ID,可以用这个索引来做哈希的键，其余的值用一个数组来代替。

mcshell

回复 1# feiying00917

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. my @data = split /\s+/, <DATA>;
   
6. my $k1 = shift @data;
   
7. my $h;
   
8. while (<DATA>) {
   
9.     my ( $k2, @line ) = split;
   
10.     $h->{$k1}->{$k2}->{$_} = shift @line for @data;
    
11. }
    
12. print Dumper \$h;
    
13. 
    
14. __DATA__
    
15. InstUin        Netlist        RefDes        Component        UinNum        SchUinName        UinName
    
16. J1:1:U3_3V_U1        1        J1        SAS_29UIN        U1        3.3V_1        U3_3V_U1
    
17. J1:1:GND_U10        1        J1        SAS_29UIN        U10        GND10        GND_U10
    
18. J1:1:READY_LED        1        J1        SAS_29UIN        U11        READY_LED        READY_LED
    
19. J1:1:GND_U12        1        J1        SAS_29UIN        U12        GND11        GND_U12
    
20. J1:1:U12V_URECHARGE        1        J1        SAS_29UIN        U13        12VURCHG

复制代码