請(qǐng)教用perl多維哈希存儲(chǔ)表格對(duì)應(yīng)關(guān)系的問(wèn)題

feiying00917

關(guān)于Perl多維哈希的問(wèn)題， 我經(jīng)常遇到這樣一種表格結(jié)構(gòu)，如下，以\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        

我想存儲(chǔ)表格與數(shù)據(jù)的對(duì)應(yīng)關(guān)系，想用這樣的哈希結(jié)構(gòu)，$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......(表頭），通過(guò)訪問(wèn)哈希的任何一層鍵值，就可以得到我想要對(duì)應(yīng)的數(shù)據(jù)，
類似這樣一種結(jié)構(gòu)，請(qǐng)問(wèn)這樣的結(jié)構(gòu)可以實(shí)現(xiàn)嗎，求幫忙！

iamlimeng

看小駱駝！

104359176

很懸，因?yàn)楣�希不允許有重復(fù)的值。這種結(jié)構(gòu)的數(shù)據(jù)，最好用數(shù)組的哈希來(lái)實(shí)現(xiàn)。在 Ruby 的 Rail 中，是用一個(gè)類來(lái)虛擬一個(gè)表，用對(duì)象的數(shù)組來(lái)模擬記錄，然后用屬性訪問(wèn)的形式來(lái)訪問(wèn)值。如果這個(gè)數(shù)據(jù)有不重復(fù)的索引ID,可以用這個(gè)索引來(lái)做哈希的鍵，其余的值用一個(gè)數(shù)組來(lái)代替。

mcshell

回復(fù) 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

復(fù)制代碼