请教哈希嵌套赋值

mantou

Server           HOUR ( date )        AVG( CPU )       AVG( MailQ )      AVG( L0ad )     AVG( Conn )  
172.24.1.40    10                          5.78                  43.7                  0.13                46
172.24.1.40    11                          8.73                  40.9                  0.34                90.9
172.24.1.40    12                          5.58                  39.6                  0.20                55.8
172.24.1.39    10                          8.03                  50.7                  0.24                51.7
172.24.1.39    11                          11.2                  51.0                  0.33                96.2
172.24.1.39    12                          6.48                  49.9                  0.14                55.1

以上是我从mysql中提取出来的，现在需要通过Perl来处理，需要把每一项赋值给变量（哈希），这个哈希变量结构整地有点糊涂。

方式一：

@{$table{$server{$hour}}}=(5.78,43.7,0.13,46) 这是第一行
这样不知是否对?或者

方式二：
$table{$server{$hour}}={ CPU=>5.78,
                                             MailQ=>43.7,
                                             L0ad=>0.13,
                                             Conn=>46,
                                           }

怎么来循环赋值呢？

我的目的：
根据Server的CPU、MailQ等等来画图，如CPU图中有多个Server的曲线。

liang573728

#!/bin/usr/perl -w use strict; open(my $FH,"ufile")||die "ufile: $!\n"; my @lines1=<$FH>; close($FH); for(@lines1){     chomp;     if(/^\d+.*$/){          my @word=split(/ +/,$_);          my $hash=$word[0];          my %hash;          $hash{$word[1]}=["$word[2]","$word[3]","$word[4]","$word[5]"];          for(keys %hash){                print "$_=>@{$hash{$_}}\n";          }       } }

[ 本帖最后由 liang573728 于 2007-12-21 09:03 编辑 ]

__lxmxn__

楼上的word[0]前面掉了$吧?

sanshi2007

hash 结构中key和value,value可以是 str1,str2,str3,,,,,;str1,str2,str3,,,,,;,,,,,这个格式,key可以是key1,key2,key3这种格式,调用的时候可以用split分出各个部分