的Perl：多維散列

Question

假設我有以下數據

cluster1中：d（A）中，f（C）類，（A）

Cluster2中，R（d），H（d ），F（A）

我想這一點，把

產量：

cluster1:A->2 
    cluster1:C->1 
    cluster2:D->2 
    cluster2:A->1 

這裏是我的嘗試，但它是不正確的，那我想計算字符部分有我不能修復 代碼是非常大的代碼的一部分的問題，正是我想要的多維散列

use strict; 
use Data::Dumper; 
my %count; 
while (<DATA>) { 
    my %HoH; 
    my ($cluster, $ch) = split (/:/,$_); 
    $HoH{$cluster}={split /[()]+/,$ch}; 
    for my $clust (keys %HoH) { 
     for my $character (keys %{ $HoH{$clust} }) { 
      $count{$clust}{$HoH{$clust}{$character}}++; 
    } 
    } 
} 
print Dumper(\%count); 
foreach my $name (sort keys %count) { 
    foreach my $subject (keys %{$count{$name}}) { 
     print "$name:$subject->$count{$name}{$subject}\n"; 
    } 
} 

DATA

cluster1中：d（A）中，f（C）類，（A）

Cluster2中：R（d）中，h（d）中，f（A）

Answer 1

如果您嘗試瞭解下面的代碼，這樣就可以得到一個想法解決問題這將是不錯： -

use strict; 
    use Data::Dumper; 

    my $data = "cluster1:A,B,C,A"; 
    my %cluster =(); 

    my ($cluster_key, $cluster_val) = split (':', $data); 
    my @cluster1_data = split(',', $cluster_val); 


    foreach my $val (@cluster1_data) { 
    $cluster{$cluster_key}{$val}++; 
    } 
    print Dumper(\%cluster); 


    foreach my $clus (keys %cluster) { 
    my $clus_ref = $cluster{$clus}; 
     foreach my $clu (keys %{ $clus_ref }){ 
      my $count = $clus_ref->{$clu}; 
      print"$clus:$clu->$count\n"; 
     } 
    } 

輸出：

$VAR1 = { 
      'cluster1' => { 
          'A' => 2, 
          'C' => 1, 
          'B' => 1 
         } 
     }; 


cluster1:A->2 
cluster1:C->1 
cluster1:B->1 

Answer 2

你期待什麼$count{$cluster}{$characters}+=1;準確嗎？

while (<DATA>) { 
    next unless /^(cluster\d+):(.+)/; 
    $count{$1}{$_}++ for split/,/, $2; 
} 

如果您還添加sort到第二foreach你會得到你想要的輸出：如果你希望得到期望的結果，你必須遍歷輸入數據來填充%count。

編輯：這就解決了更新的輸入和要求的問題：

my %count; 

while (<DATA>) { 
    next unless /^(cluster\d+):(.+)/; 
    my $cluster = $1; 
    $count{$cluster}{$_}++ for $2 =~ /\((\w)\)/g; 
} 

for my $key (sort keys %count) { 
    for my $value (sort { 
     $count{$key}{$b} <=> $count{$key}{$a} 
        } keys %{$count{$key}}) { 
     print "$key:$value->$count{$key}{$value}\n"; 
    } 
}