Re: Speeding up stalled script

[Athanasius]

Hello onlyIDleft,

Not an answer, just a couple of observations. This code (comments removed):

while(<IN1>)        {
chomp;    
    if ($_=~ m/\>/)        {
        }
    elsif ($_!~ m/\>/)        {
    push @lengths, length($_);
        }
}

can be replaced with the equivalent:

while (<IN1>)
{
    chomp;
    push @lengths, length $_ unless />/;
}

Update: No need to escape > in a regex.

And similarly, this code (comments removed):

while(<IN2>)        {
chomp;    
    if ($_=~ m/\>/)        {
    push @source, $_;
        }
    elsif ($_!~ m/\>/)        {
    push @source, $_;
        }
}

is equivalent to:

chomp, push @source, $_ while <IN2>;

:-)

Hope that helps,