问关于哈希数组的构建索引问题.

weizhishu

看下面贴子
http://bbs2.chinaunix.net/viewth ... ;extra=#pid11580762

在shell下用awk我知道怎样做,但perl不知道怎么写.在perl里构造索引哈希数组一直很迷糊.书里讲的一个key可以对应多个值,但举了例子都是只有一个值.那位有空用perl写一个,讲解一下,我参考学习一下.

兰花仙子

.书里讲的一个key可以对应多个值

是指多维hash。
例如：

%hash = ( key1 => [1,2,3,4],
                  key2 => { 1 => 2,
                                   3 => 4,
                                 },
                );


那么key1和key2对应的value是一个reference（或匿名数据结构）。
reference可以包含一个宇宙，例如数组还原后：
@{$hash{key1}}，就是多个元素了。

weizhishu

谢谢,我再试一下.

ly5066113

照葫芦画瓢呀。

1. perl -lane 'if($#ARGV==0){$h{"$F[0] $F[1] $F[2] $F[3]"}="$F[8] $F[9] $F[10]"}else{if(exists $h{"$F[1] $F[2] $F[3] $F[4]"}){print $h{"$F[1] $F[2] $F[3] $F[4]"} . " $F[7] $F[9] $F[18]"}}' a.dat b.dat

复制代码