perl hash, 不规则的值

fzhcl

本人有个文本文件如下，我需要把第一列作为hash的key, 后面所有的都是它的value， 没有规律。

dr31_Crit *IF *MIS ommand_U *EQ ( '*cs31*' )
dr32_Crit *IF *MIS ommand_U *EQ ( '*cs32*' )
dr41_Crit *IF *MIS ommand_U *EQ ( '*cs41*' )
dr42_Crit *IF *STR nd_U *EQ 1,'cs42.clog.props'
inPr_Crit  *IF *MISand_U *EQ ('.../java') *UNTIL ( *TTL 0:01:00:00 )




先谢谢大侠。

lpnueg4

1. use Data::Dumper;
   
2. my $hash;
   
3. 
   
4. while(<DATA>) {
   
5.     $_ =~ /(^.*?)\s+(.*)/;
   
6.     # print "$1 , $2 \n";
   
7.     $hash->{$1} = $2;
   
8. }
   
9. 
   
10. print Dumper $hash;
    
11. 
    
12. 
    
13. __DATA__
    
14. dr31_Crit *IF *MIS ommand_U *EQ ( '*cs31*' )
    
15. dr32_Crit *IF *MIS ommand_U *EQ ( '*cs32*' )
    
16. dr41_Crit *IF *MIS ommand_U *EQ ( '*cs41*' )
    
17. dr42_Crit *IF *STR nd_U *EQ 1,'cs42.clog.props'
    
18. inPr_Crit  *IF *MISand_U *EQ ('.../java') *UNTIL ( *TTL 0:01:00:00 )

复制代码

fzhcl

回复 2# lpnueg4

谢谢，非常好，不过我得研究一下Data:umper怎么用。