09. Perl 数据类型-哈希常用API

悠悠 2022-01-29 17:41 280阅读 0赞

Perl 语言提供的哈希的API 并不太多, 但是也很强大了。但是哈希可以转换为value数组进行操作， 数组的API 是非常强大的。 Perl 语言还内置了环境变量的哈希变量， 用户在脚本中获取环境变量的相关信息

## 1. 常用API ##

*  单独使用keys 和 vlaues 返回的数组是无序的, 因此返回的元素并不一定是一一对应的. 当使用完keys 之后马上使用values , 那么此时相同索引的key 和 value是一一对应的
 *  使用reverse 的时候需要注意, 需要保证value 也是唯一的, 否则会相同的value作为key时, 会随机覆盖,变成不可控.

<table> 
 <thead> 
  <tr> 
   <th align="left">哈希赋值</th> 
   <th align="left">语法格式</th> 
   <th align="left">示例</th> 
  </tr> 
 </thead> 
 <tbody> 
  <tr> 
   <td align="left">keys</td> 
   <td align="left">获取哈希所有的key,返回由key组成的数组</td> 
   <td align="left">@keys = keys %hash_name;</td> 
  </tr> 
  <tr> 
   <td align="left">values</td> 
   <td align="left">获取哈希所有的value, 返回由value组成的数组</td> 
   <td align="left">@values = values %hash_name</td> 
  </tr> 
  <tr> 
   <td align="left">exists</td> 
   <td align="left">判断key 是否在哈希中存在, 存在返回1,否则返回空</td> 
   <td align="left">exists %hash_name{key}</td> 
  </tr> 
  <tr> 
   <td align="left">delete</td> 
   <td align="left">删除哈希中的元素,返回删除key对应的value</td> 
   <td align="left">$value = delete $hash_name{key}</td> 
  </tr> 
  <tr> 
   <td align="left">reverse</td> 
   <td align="left">颠倒哈希的key,value, 变成value-key 组合</td> 
   <td align="left">%hash_reverse = reverse %hash</td> 
  </tr> 
 </tbody> 
</table>

## 2. 内置哈希 ##

*  perl 语言内置了哈希%ENV, 此哈希存储了当前系统的环境变量
 *  可通过ENV 获取当前环境变量设置的key-value信息, 如: PATH: $ENV\{PATH\}; JAVA\_HOME: $ENV\{JAVA\_HOME\};

## 3. 综合示例 ##

### 3.1 示例脚本 ###

#!/usr/bin/perl
    #Desc 哈希基本用法
    #Auth zongf
    #Date 2019-05-21
    # 1.列表创建
    %char_hs = ( A, 'a', B, 'b', C, 'c');
    
    ## 2.胖箭头创建
    %ip_hs = (
      "www.taobao.com" => "60.28.242.249",
      "www.baidu.com" => "61.135.169.125",
    );
    
    print "\n#################### 1. 常用方法 ####################\n";
    # keys
    @keys1 = keys %char_hs;
    @keys2 = keys %char_hs;
    print "char_hs keys: @keys1 \n";
    print "char_hs keys: @keys2 \n";
    
    # exists
    $c = exists $char_hs{ C};
    $d = exists $char_hs{ D};
    print "exists: c:$c, d:$d \n";
    
    # delete 
    $del = delete $char_hs{ B};
    @keys = keys %char_hs;
    print "delete: B -> $del, left: @keys \n";
    
    # reverse
    %r_ip_hs = reverse %ip_hs;
    print "reverse: r_ip_hs \n";
    while (my ($key, $val) = each %r_ip_hs) { 
        print "$key -> $val \n";
    }
    
    #哈希数量
    $length = keys %char_hs;
    print "char_hs length: $length \n";
    
    # 清空
    %char_hs = ();
    $length = keys %char_hs;
    print "length after empty: $length \n";
    
    
    print "\n#################### 2. 内置哈希 ####################\n";
    $JAVA_HOME = $ENV{ JAVA_HOME};
    $PATH = $ENV{ PATH};
    print "ENV: JAVA_HOME=$JAVA_HOME, PATH=$PATH \n";

### 3.2 示例输出 ###

####################  1. 常用方法  ####################
    char_hs keys: C B A 
    char_hs keys: C B A 
    exists: c:1, d: 
    delete: B -> b, left: C A 
    reverse: r_ip_hs 
    61.135.169.125 -> www.baidu.com 
    60.28.242.249 -> www.taobao.com 
    char_hs length: 2 
    length after empty: 0 
    
    ####################  2. 内置哈希  ####################
    ENV: JAVA_HOME=, PATH=/home/zongf/soft/jdk/jdk1.8.0_152/bin:/home/zongf/soft/jdk/jdk1.8.0_152/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/usr/local/games:/home/zongf/soft/zongf/jars:/home/zongf/soft/zongf/tools:/home/zongf/soft/maven/apache-maven-3.3.9/bin:/home/zongf/soft/zongf/jars:/home/zongf/soft/zongf/tools:/home/zongf/soft/maven/apache-maven-3.3.9/bin