我希望将散列的散列的键与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
此代码可以很好地处理此示例数据,但不适用于实际数据!!我的数据更复杂,但是结构是一样的,我想知道是否还有其他方法来做到这一点。
发布于 2012-09-14 12:03:25
也许你只是想
print "something\n" if exists $HoH{regexp}或者也许
print "something\n" if grep /regexp/, keys %HoH但是如果这些都不正确,那么你需要更好地解释你需要什么,并给出一些例子。
https://stackoverflow.com/questions/12423791
复制相似问题