Another possibility is that there's another session that has a lock on the
ChunkMail table. This would cause your script to block when it tries to
execute:
$rslt = $dbh->do("UPDATE Chunkmail SET CONTRIBUTE_FLAG=1 WHERE
CHUNKMAIL_ID=" . $chunkmail_id[$_]);
You can see what locks are currently being held with:
SELECT * FROM dba_dml_locks
Ronald
P.S. If we figure this out will we get free ice cream? :D
> -----Original Message-----
> From: Laurie Vien [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, March 24, 2004 3:19 PM
> To: 'Ronald J Kimball'; 'Hardy Merrill'; Laurie Vien; [EMAIL PROTECTED]
> Subject: RE: Why won't my script terminate?
>
> There are only 3 records in the input table, and they've all been
> processed
> to the output file. :-)
>
> -----Original Message-----
> From: Ronald J Kimball [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, March 24, 2004 3:22 PM
> To: 'Hardy Merrill'; [EMAIL PROTECTED]; [EMAIL PROTECTED]
> Subject: RE: Why won't my script terminate?
>
>
> She's not re-opening STDOUT as an "in memory" file, she's opening it as a
> regular file handle. This doesn't apply.
>
> I doubt very much that opening STDOUT to a file is the cause of the script
> not terminating. I suspect that either there is an infinite loop, or
> there's just a lot of data to process and the original poster isn't
> allowing
> enough time for the script to finish.
>
> Ronald
>
>
> > -----Original Message-----
> > From: Hardy Merrill [mailto:[EMAIL PROTECTED]
> > Sent: Wednesday, March 24, 2004 3:06 PM
> > To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
> > Subject: Re: Why won't my script terminate?
> >
> > I just found this in 'perldoc -f open':
> >
> > Though if you try to re-open "STDOUT" or "STDERR" as an "in
> > memory" file, you have to close it first:
> >
> > close STDOUT;
> > open STDOUT, '>', \$variable or die "Can't open STDOUT: $!";
> >
> > So try closing STDOUT first before opening it for append.
> >
> > HTH.
> >
> > Hardy Merrill
> >
> > >>> Laurie Vien <[EMAIL PROTECTED]> 03/24/04 02:44PM >>>
> > I am running a very simple Perl script using DBI (skeleton of it
> > follows).
> > It does everything I expect it to, but the problem is it doesn't
> > finish
> > until I Ctrl-C, at which time I get the message "Terminating on signal
> > SIGINT(2)". What have I left out or done in the wrong order that
> > causes it
> > not to terminate?:
> >
> > #MyPerlScript.pl
> > use DBI;
> > use Date::Manip;
> >
> > $dbh = DBI->connect($DB_CONN, $DB_USER, $DB_PASS) || die "Can't
> > connect:
> > $dbi::errstr";
> > open(STDOUT, ">>myfile.txt") or die "\nCould not open STDOUT: $!";
> >
> > $sth = $dbh->prepare("SELECT * FROM MyTable");
> > $sth->execute();
> >
> > # < Do bunches of stuff here ....>
> > #
> > #
> >
> > $sth->finish();
> > $dbh->disconnect();
> > close(STDOUT);
> >
> > Laurie
> >
>
