我认为这可以解决问题: 替换

I THINK this solves the problem: Replace

$loscore{$id} .= 0; $maxscore{$id} .= -30;

$loscore{$id} .= 0; $maxscore{$id} .= -30;

使用

foreach $id (keys %HoA)
    {
        for my $len (0..(length($HoA{$id})-$width-1))
        {
            push @{ $loscore{$id} }, 0;
            push @{ $maxscore{$id} }, -30;
        }
    }

让我知道您是否要添加任何内容.

Let me know if you have anything to add.