如何引用哈希值的數組的哈希值，以比較值

Question

我有以下數據結構：

my %hash = (
    'hsa_circ_0024017|chr11:93463035-93463135+|NM_033395|KIAA1731 FORWARD' => [ 
     { 
      'energy' => '-4.3', 
      'spacer' => 'AGGCACC', 
      'end' => '97', 
      'start' => '81' 
     } 
    ], 
    'hsa_circ_0067224|chr3:128345575-128345675-|NM_002950|RPN1 FORWARD' => [ 
     { 
      'energy' => '-4.4', 
      'spacer' => 'CAGT', 
      'end' => '17', 
      'start' => '6' 
     }, 
     { 
      'energy' => '-4.1', 
      'spacer' => 'GTT', 
      'end' => '51', 
      'start' => '26' 
     }, 
     { 
      'energy' => '-4.1', 
      'spacer' => 'TTG', 
      'end' => '53', 
      'start' => '28' 
     } 
    ], 
    ... 
); 

如何訪問我的哈希值的內容能夠在一個循環中的內容比較？

對於每個父散列（hsa_circ ...）我想比較孩子哈希（間隔）在一起。原諒我，我正在努力說出這個權利。這當然是一小部分數據。簡而言之，我的目標是檢測具有相同間隔符的散列陣列，如果他們確實具有相同的間隔符，那麼我想要選擇具有最低能量得分的散列數組。

Answer 1

問題：有可能在每個hashrefs組數組引用與等於間隔值。在每個這樣的組中，需要標識具有最低能量值 的hashref以替換該組。

的大部分工作是在partition_equal()完成，標識與相等間隔

use warnings; 
use strict; 
use List::Util qw(reduce); 
use Data::Dump qq(dd); 

# Test data: two groups of equal-spacer hashrefs, in the first array only 
my %hash = ( 
    kA => [ 
     { 'energy' => -4.3, 'spacer' => 'AGGCACC' }, 
     { 'energy' => -2.3, 'spacer' => 'AGGCACC' }, 
     { 'energy' => -3.3, 'spacer' => 'CAGT' }, 
     { 'energy' => -1.5, 'spacer' => 'GTT' }, 
     { 'energy' => -2.5, 'spacer' => 'GTT' }, 
    ], 
    kB => [ 
     { 'energy' => -4.4, 'spacer' => 'CAGT' }, 
     { 'energy' => -4.1, 'spacer' => 'GTT' }, 
     { 'energy' => -4.1, 'spacer' => 'TTG' }, 
    ], 
); 
#dd \%hash; 

for my $key (keys %hash) { 
    my ($spv, $unique) = partition_equal($hash{$key}); 
    next if not $spv; 
    # Extract minimum-energy hashref from each group and add to arrayref 
    # $unique, so that it can eventually overwrite this key's arrayref 
    foreach my $spacer (keys %$spv) { 
     my $hr_min = reduce { 
      $a->{energy} < $b->{energy} ? $a : $b 
     } @{$spv->{$spacer}}; 
     push @$unique, $hr_min; 
    } 
    # new: unique + lowest-energy ones for each equal-spacer group 
    $hash{$key} = $unique if keys %$spv; 
}  
dd \%hash; 

# Sort array and compare neighbouring elements (hashrefs) 
sub partition_equal { 
    my $ra = shift; 
    my @sr = sort { $a->{spacer} cmp $b->{spacer} } @$ra; 

    # %spv: spacer value => [ hashrefs with it ], ... 
    # @unique: hasrefs with unique spacer values  
    my (%spv, @unique); 

    # Process first and last separately, to not have to test for them 
    ($sr[0]{spacer} eq $sr[1]{spacer}) 
     ? push @{$spv{$sr[0]{spacer}}}, $sr[0] 
     : push @unique, $sr[0]; 
    for my $i (1..$#sr-1) { 
     if ($sr[$i]{spacer} eq $sr[$i-1]{spacer} or 
      $sr[$i]{spacer} eq $sr[$i+1]{spacer}) 
     { 
      push @{$spv{$sr[$i]{spacer}}}, $sr[$i] 
     } 
     else { push @unique, $sr[$i] } 
    } 
    ($sr[-1]{spacer} eq $sr[-2]{spacer}) 
     ? push @{$spv{$sr[-1]{spacer}}}, $sr[-1] 
     : push @unique, $sr[-1]; 

    return if not keys %spv; 
    return \%spv, \@unique; 
} 

輸出

 
kA => [ 
     { energy => -3.3, spacer => "CAGT" }, 
     { energy => -2.5, spacer => "GTT" }, 
     { energy => -4.3, spacer => "AGGCACC" }, 
     ], 
kB => [ 
     { energy => -4.4, spacer => "CAGT" }, 
     { energy => -4.1, spacer => "GTT" }, 
     { energy => -4.1, spacer => "TTG" }, 
     ], 

內部arrayrefs的次序並不維持hashref基;新的arrayref具有唯一間隔值的第一個hashrefs，然後是具有最低能量值的那些（對於具有相同間隔值的每個原始組）。

子排序通過間隔值輸入，以便它可以通過簡單地遍歷排序後的數組並僅比較鄰居來識別相等的數據。這應該是合理有效的。

Answer 2

喜歡這個

$_=$hash{'hsa_circ_0024017|chr11:93463035-93463135+|NM_033395|KIAA1731 FORWARD'}->[0]{energy}; 

print $_ ."\n"; 

所以它的 $此{哈希} - > [ARRAY_REF] {散列]

Answer 3

for my $line (keys(%by_line)) { 
    my $spacer_defs = $by_line{$line}; 
    ... 
} 

或

for my $spacer_defs (values(%by_line)) { 
    ... 
} 

將讓你（參考到）針對每行的（參考）間隔定義的陣列 反過來。然後，您可以編輯如下數組：

my %uniq_spacer_defs; 
    for my $spacer_def (@$spacer_defs) { 
     my $spacer = $spacer_def->{spacer}; 
     $uniq_spacer_defs{$spacer} = $spacer_defs 
     if !$uniq_spacer_defs{$spacer} 
     || $uniq_spacer_defs{$spacer}{energy} < $spacer_def->{energy}; 
    } 

    @$spacer_defs = values(%uniq_spacer_defs); 

---

注：

• 的 「間隔定義」 的順序可能會改變。如果這是一個問題，

  @$spacer_defs = grep { $uniq_spacer_defs{$_->{spacer}} == $_ } @$spacer_defs; 
  

• 更換

  @$spacer_defs = values(%uniq_spacer_defs); 
  

  在用相同的間隔和相同的能量是兩個間隔定義的情況下，遇到的第一個仍然保留。