Re^2: how to compare two hashes with perl?

I think that this part in your code:

while (<FILE1>) {
    my ($ID1, undef, undef, undef, $Seq1) = split;
    $bow1{$ID1} = $ID1; # your id is the key and can be got again
}
[download]

should actually be like this:

while (<FILE1>) {
    my ($ID1, undef, undef, undef, $Seq1) = split;
    $bow1{$ID1} = $Seq1;   # ID is hash key, Seq is hash value
}
[download]

Comment on Re^2: how to compare two hashes with perl? Select or Download Code

Replies are listed 'Best First'.
Re^3: how to compare two hashes with perl? by colwellj (Monk) on Nov 05, 2009 at 22:17 UTC
oops, well spotted.	[reply]