[sf-perl] Hanging with the diamond operator?

[Richard Reina]

Joe,

Thank you very much for your reply.  The file is called from a couple
different scripts in one of the the following ways:

with a file (in which case a file is submitted that needs to be
checked for "epsf[". In these cases the sub sometimes hangs

&delimit($T, $C, $R, $S, $B, $file);

or w/o a file so the scalar $B will be the $body that winds up in the
delimited file.  In these cases while(<>) is never executed and the
program never hangs.

&delimit($T, $C, $R, $S, $B);

It is trimmed down significantly chiefly because it is on a private
network and it's a lot to retype.  The only thing that happens after
the while loop is that a new file is created containing delimiters in
which the scalar $body is one of the delimited fields.  The file is
then rsynced to another local machine.

Thanks for the help thus far.

On 1/8/08, Joe Brenner <doom at kzsu.stanford.edu> wrote:
>
> Richard Reina <gatorreina at gmail.com> wrote:
>
> > The script below is called from another perl script that runs on linux
> > console on a few machines here.  The problem is that sometimes the
> > script hangs.
>
> How do you call the script?  Everything inside it is inside a
> subroutine called "delmit", and nothing here calls the sub.
>
> Either you've trimmed this down radically from the real script,
> and/or it isn't really a "script", but a code library...
>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>