perl匹配结果存入哈希

莫莫小米

我有一个test.txt文件
open(FH,"test.txt");

文件中有几种我想匹配的模式：
$want1 =~ /(\w{5})13579/;  # $1
$a = $1;
$want2 =~ /(\w{5})02468/;  # $2
$b = $2;
$want3 =~ /(\w{5})12345/;  # $3
$c = $3;

我想把$a作为%hash1的key，$b作为%hash2的key，$c作为%hash3的key，分别统计在test文件中key相同的次数：
%hash1中有几个key和 %hash2或%hash3的key相同；#%hash1中的key有可能同时与%hash2和%hash3相同，也有可能只与其中的一个哈希表的key相同；%hash2和%hash3是同样的情况
%hash2中有几个key和 %hash1或%hash3的key相同；
%hash3中有几个key和 %hash1或%hash2的key相同；

请教下这该怎么实现呢？

MMMIX

回复 1# 莫莫小米


    用两级 hash 更容易些，使用  /(\w{5})(13579)/ 等匹配，然后用 $1 做第一级 hash 的 key，使用 $2 做对应的二级 hash 的 key，二级 hash 的 value 是个计数器。这样完了遍历一遍就能知道不同的组合分别出现了多少次。

莫莫小米

回复 2# MMMIX

谢谢你的思路，很棒