印刷中のダブルハッシュエントリ

Question

大きなプログラムの一環として、ハッシュがあります。私は鍵を印刷するプログラムをテストしていますが、それらはすべての重複をしている、

while (my $line = <SEQ>) { 

    chomp $line; 
    $line =~ s/>//; 

    my (@split1) = split("\t", $line); 

    foreach my $chr (keys %position) { 

    #print Dumper \%position; 
    print "$chr\n"; 

    foreach my $pos (sort keys %{ $position{$chr} }) { 

     if ($split1[0] =~ /$chr/) { 
      #print "$chr\t$pos\n"; 
     } 
    } 
    } 
} 

%positionがネストされたハッシュである理由私はprint "$chr\n";上のキーを印刷するとき、彼らはすべて倍増している、知らないと私はしないでください理由を理解する。あなたが印刷されますwhile内部foreachループを持って

my %data; 
while(<DATA>){ 
    chomp; 
    my ($chr, $seq) = split; 
    $data{$chr} = $seq; 
} 

print Dumper \%data; 

Answer 1

：これで

Answer 2

スタートに

>chr1\tACTGTAGTCTCATCCTAT... 
>chr2\tACGTAGCTAGT.... 

ので：

ファイルハンドルSEQに開かれたが、このようになります。すべての入力行に対して%positionハッシュのすべてのキー

これは、あなたが説明しているような症状を引き起こします。それはあなたが探しているものですか？