我想将哈希哈希的键与regexp 匹配。
$line=" Cluster(A,B):A(T) M(S)";
$reg="Cluster";
my ( $cluster, $characters ) = split (/:/,$line);
$HoH{$cluster}={split /[( )]+/,$characters } ;
foreach $value(keys %HoH){
foreach $characters (keys %{$HoH{$cluster}}){
print "$value:$characters\n" if /$reg/ ~~ %HoH;
}
}
现在输出是:
集群(A,B):A
集群(A,B):M
此代码适用于此示例数据,但不适用于真实数据!我的数据更复杂但结构相同我想知道是否还有其他方法可以做到这一点