Re^3: Program Hangs

in reply to Re^2: Program Hangs
in thread Program Hangs

It's not easy to tell without access to your specific data.

However, one thing that strikes me as dangerous is:

while(<DATA>)
{
    #...
    if(($x[0] eq 's') && ($x[3] eq 'AGT'))
    {
        $file_position = tell(DATA);
        #...
        while(<DATA>)
        {
            #...
        }
        seek(DATA,$file_position,SEEK_SET);
    }
}
[download]

Which just has "infinite loop" written all over it. As soon as you're done reading from <DATA>, you jump back to the marked $file_position which you previously saved.

Try putting a print statement in the outer loop, and see if that isn't the problem.

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Comment on Re^3: Program Hangs Select or Download Code

In Section Seekers of Perl Wisdom