Проблемы с удалением в hash Perl

Question

Другой хеш содержит имя в качестве ключа (разделенное на _) и состоит из 4 частей (я сравниваю первые три части).Значением является строка, длину которой мне нужно сравнить. Если имя такое же и уже существует в хеше (первые три части), мне нужно сохранить строку с наибольшей длиной, и если длины равны, я не все равно, какой из них он сохранит.Я знаю, что при итерации возникают проблемы, поскольку пары ключ-значение удаляются.

 my %temphash=();
 %temphash=%anotherhash;
 foreach my $tempkey(keys %temphash){
        my @tempkey_splitted = split /\_/, $tempkey;
        my $tempkey_newfamily = $tempkey_splitted[0];
        my $tempkey_newgenera = $tempkey_splitted[1];
        my $tempkey_newspecies = $tempkey_splitted[2];
        my $tempkey_catstring ="$tempkey_newfamily"."_$tempkey_newgenera"."_$tempkey_newspecies";
        my $sequence_realkey="";
        my $sequence_tempkey="";
        my $length_realkey="";
        my $length_tempkey="";
        if ($realkey_catstring eq $tempkey_catstring){
            $sequence_realkey = $anotherhash{$realkey};
            $length_realkey = length($sequence_realkey);
            #print "$anotherhash{$realkey}";
            #print "$length_realkey";
            $sequence_tempkey = $temphash{$tempkey};
            #print "$anotherhash{$tempkey}";
            $length_tempkey = length($sequence_tempkey);
            # print "$length_tempkey";

            if($length_realkey>$length_tempkey){
                delete($temphash{$tempkey});
               #print ">$realkey\n$anotherhash{$realkey}\n\n";
                }
            elsif($length_tempkey>$length_realkey){
               delete($temphash{$realkey});
               #print ">$tempkey\n$anotherhash{$tempkey}\n\n";
                }
            elsif($length_tempkey eq $length_realkey){
                delete($temphash{$realkey});
                }
            }
        else{
             print "do nothing"; 
            }
        }
    }

Answer 1

Ваш код довольно запутан, но я думаю, что приведенный ниже пример кода делает то, что вам нужно.Он работает путем копирования содержимого %anotherhash (пожалуйста не используйте такие ужасные бессмысленные имена для своих переменных), чтобы %temphash по одному элементу за раз, и только если новое значение из %anotherhash длиннее, чем %temphash

my %temphash;

while (my ($key, $val) = each %anotherhash) {

  my @key = split /_/, $key;
  my $tempkey = join '_', @key[0,1,2];
  my $tempval = $temphash{$tempkey};

  unless (defined $tempval and length $tempval >= length $val) {
    $temphash{$tempkey} = $val;
  }
}