Perl 模块 Hash::Merge

Posted 2023-04-13

参考技术A 把两个任意深度的hash合并成一个。

使用方式如下：

在任何层级，都只从一个hash结构合并无冲突的键值对到另一个hash结构，如果遇到冲突的结构则会根据特定的配置进行处理。因为hash结构是可以深度嵌套的，所以任何层级的hash结构都会被使用同样的方法进行递归的合并。

注：自引用的hash，或是嵌套引用的hash都无法被正确的处理。

在hash结构中的值，会被当成hashref、arrayref或scalar来处理。默认情况下，在进行合并之前，会先使用 Clone 模块对数据进行“克隆”得到一个副本，然后对数据的副本进行合并操作。当然了，如果有必要我们可以改变这种默认行为，使用原始数据进行合并操作。（参数 set_clone_behavior 方法）

由于在很多时候，即使hash的键值产生了冲突用户也想要进行正解的合并； Hash::Merge 为用户提供了几常用的处理方式，并且也预留了供用户自己的扩展的接口。详情如下：

这是默认行为。

在这种配置下，绑定在左值上的hash永远不会丢失。所有正常（没有冲突）的右值都会被合并到左值上。

和“左值优先”一样，只是这里是右值上的hash永远不会丢失，并且所有正常（没有冲突）的左值都会被合并到右值上。

如果冲突的键有两个不同类型的值，则更“大”的类型的会被保留下来。array比scalar更“大”，hash比其他其他类型都“大”。这时，较“小”的类型会尝试合并到较大的类型中，如果无法合并，较“小”类型的数据会被丢弃。

在这种行为下，不会有任何值丢失。scalar会被加入到数组中，scalar和array都可以填充到hash中。

使用特定的规则把两个hash合并成一个新的hash，并返回。

返回一个从 scalar 和 array 创建的hash；为每个scalar或array中的每一个元素创建一个键值对，键和值都是它本身。

实际上是针对每个 key 的 value 重复调用 merge 方法。

在合并之前，数据是否被复制。如果是 true ，则在合并前会复制原始数据得到副本，并对副本进行合并。如果是 false，则直接对原始数据进行合并。默认情况下是 true。

返回当前的 复制 行为的配置。

指定具体的 合并 行为。参数 scalar 必须是已经定义的值，如：LEFT_PRECEDENT， RIGHT_PRECEDENT，STORAGE_PRECEDENT，RETAINMENT_PRECEDENT

返回当前正在被Hash::Merge使用的 行为 配置。

为 Hash::Merge 指定一个自定义的合并行为。hashref 必须定义3个键(SCALAR，ARRAY，HASH)。其中每个键的值同样是一个包含三个键(SCALAR，ARRAY，HASH)的hash，不仅如此，并且内层hashref每个键的值都必须是一个 coderefs 。这些 coderefs 被调用时会传两个参数（左值和右值），它的功能就是合并这两个值，并返回一个scalar，arrayref或hashref。如果有必要,可以使用函数_hashify和_merge_hashes作为这些辅助函数。

例如,你想添加左值标量到右值的数组中,你可以有你的行为规范包括:

下面这些是每个内部行为在各种情况下如何工作的说明，其中$a是左值，$b是右值。

注：merger 表示调用了 _merge_hashes, hashify 表示调用了 _hashify。

稍候更新，请关注。

perl 模块的创建以及制定perl 模块的路径

1） perl 模块的创建

perl 模块的后缀名为.pm, 其中的内容和一般的perl脚本相同， perl模块中通常放置可重用的函数以及变量，

比如创建一个fasta.pm,里面包含一个统计fasta序列中gc碱基个数的方法：

 1 #/usr/bin/perl 
 2 package fasta;
 3 use warnings;
 4 use strict;
 5 
 6 sub run {
 7     my $seq = shift;
 8     return $seq =~ tr /GCgc/GCgc/;
 9 
10 }    
11 
12 1;

然后写一个脚本检测一下该模块是否起作用：

#!/usr/bin/perl 
use fasta;

my $seq = qq{ATCGCTACGACG};

my $gc = fasta::run($seq);

print qq{$gc\n};

运行该脚本，输出结果为7， 可以看出结果确实是GC碱基的个数；

这个测试的脚本和fasta.pm 是放在同一个目录下的， 当脚本和模块放置在不同的目录时，

为了使用该模块， 就必须指定模块所在目录；

2) 指定perl模块目录

比如fasta.pm 所在目录为/home/xudl/perl

第一种方式： 设置环境变量PERL5LIB,

在~/.bashrc 中添加

export PERL5LIB=$PERL5LIB:/home/xudl/perl;

然后source ~/.bashrc 使这个新修改的环境变量生效即可；  

第二种方式， 在脚本中使用use lib

use  lib "/home/xudl/perl"；

然后就可以使用

use fasta;