散列hash小结

1.print语句打印的区别

 

my   %hash   =  (key1  =>  value1 ,
                     kye2  =>  value2);
print   " %hash " ;    #  打印的结果就是一个字符串 ： %hash
print   %hash  ;      #  打印结果和列表的一样，把key和value拼接串打印    key1value1key2value2

2.散列相关函数

keys

values

each   自动的循环hash体内的key value 至undef 然后再回到第一个key value

           注：无论调用keys values 都会将each的计数点回归到原点。

测试代码如下：

my   %hash   =  ( 1   =>   10 ,
                         2   =>   20 ,
                         3   =>   30 ,
                         4   =>   40 );
                        
while  ( my  ( $key   , $value )  =   each   %hash ) {
     print   " $key -- $value  " ;
}
print   " --------------------------------- " ;

my  ( $key   , $value )  =   each   %hash ;
print   " $key -- $value  " ;
my  ( $key   , $value )  =   each   %hash ;
print   " $key -- $value  " ;
my  ( $key   , $value )  =   each   %hash ;
print   " $key -- $value  " ;
my   @key   =   keys  ( %hash );
my  ( $key   , $value )  =   each   %hash ;
print   " $key -- $value  " ;
my  ( $key   , $value )  =   each   %hash ;
print   " $key -- $value  " ;
my  ( $key   , $value )  =   each   %hash ;
print   " $key -- $value  " ;
my  ( $key   , $value )  =   each   %hash ;
print   " $key -- $value  " ;
my  ( $key   , $value )  =   each   %hash ;
print   " $key -- $value  " ;


# #### 执行结果#################
4   --   40  
1   --   10  
3   --   30  
2   --   20  
---------------------------------
4   --   40  
1   --   10  
3   --   30  
4   --   40  
1   --   10  
3   --   30  
2   --   20  
  --   

reverse   注意值的唯一性

delete 彻底删除 key value

exists 针对key 是否存在

defined  针对value是否被定义，赋值

用法异同比较

语法相同点：

delete  (  $hash {key});
exists  ( $hash {key});
defined ( $hash {key})

一个利用散列key唯一性的日志分析

#   日志格式如下。
#  要求按照第一字段分类，其余三个字段求和
#  处理结果为：
DS - SERVER - 0009 | 0 | 0 | 0
DS - SERVER - 0001 | 26 | 0 | 0
DS - SERVER - 0011 | 0 | 0 | 0
null | 0 | 0 | 0

原始log文件如下：
DS - SERVER - 0001 | 1 | 0 | 0
DS - SERVER - 0001 | 1 | 0 | 0
DS - SERVER - 0001 | 2 | 0 | 0
DS - SERVER - 0001 | 1 | 0 | 0
null | 0 | 0 | 0
null | 0 | 0 | 0
DS - SERVER - 0001 | 1 | 0 | 0
DS - SERVER - 0001 | 1 | 0 | 0
DS - SERVER - 0001 | 19 | 0 | 0
DS - SERVER - 0001 | 0 | 0 | 0
DS - SERVER - 0009 | 0 | 0 | 0
DS - SERVER - 0009 | 0 | 0 | 0
DS - SERVER - 0001 | 0 | 0 | 0
DS - SERVER - 0011 | 0 | 0 | 0

日志分析代码：

# ! /usr/local/bin/perl
#
# 多行日志分析

use  strict;

my   $logFile   =   " /shvpn/test/wlj/perl/hashLog.log " ;   #  DS-SERVER-0001|1|0|0
open  FILE ,   $logFile  or  die   " cant open logfile $!  " ;

my   %hash ;  #  DS-SERVER-0001|1|0|0  key 为第一字段，二层hash sum1,sum2 sum3分别代表三个字段求和

while  ( < FILE > ) {
     if  ( $_   =~   / ( .+ ) | ( d + ) | ( d + ) | ( d + ) / ) {
#        if (exists $hash{$1}{'sum1'}) {     # 注：不用特意的去判断键值是否存在，会自动判断并处理
             $hash {$ 1 }{ ' sum1 ' }  +=  $ 2 ;
#         }
#        else {
#            $hash{$1}{'sum1'} = $2;
#        }
#        if (exists $hash{$1}{'sum2'}) {
             $hash {$ 1 }{ ' sum2 ' }  +=  $ 3 ;
#         }
#        else {
#            $hash{$1}{'sum2'} = $3;
#        }
#        if (exists $hash{$1}{'sum3'}) {
             $hash {$ 1 }{ ' sum3 ' }  +=  $ 4 ;
#         }
#        else {
#            $hash{$1}{'sum3'} = $4;
#        }
    }
}

foreach  ( keys   %hash ) {
     print   " $_|$hash{$_}{'sum1'}|$hash{$_}{'sum2'}|$hash{$_}{'sum3'} " ;
}