Re^2: control-C to "jumpstart" windows process

disclosure: jimt and I are working together, and are collectively stumped by this problem. Here is some sample code, but it doesn't mean anything at all.

my $t0 = new Benchmark;
print 'Doing stuff... ';
..
do a bunch of stuff with, say, DBI
..
my $t1 = new Benchmark;
print 'Done; This took: ' . timestr(timediff($t1, $t0)) . "\n";
[download]

As mentioned above, this is an occasional problem, in that, it manifests on occasion. I wish it were a constant and replicable problem.

If we can't find the cause of this problem, is there any way we can get around it? We could have our script send out a "CTRL-C" if we could somehow figure out that.. "well, its been a while and the process should have completed by now." Of course, if we are wrong, and the process is still going on, then we would end up killing the process. Not good.

In other words, this is a serious pain in the arse, and our hope is that someone else has been bitten by it and has found a reason and/or a cure for it.

--

when small people start casting long shadows, it is time to go to bed

Comment on Re^2: control-C to "jumpstart" windows process Download Code

Replies are listed 'Best First'.
Re^3: control-C to "jumpstart" windows process by innominate (Beadle) on Oct 18, 2006 at 15:33 UTC
Echoing the other monks, more info would mean more help to you! I'm going totally off the top of my head here, but I'm guessing you're trying to output something w/o a newline directly before something is getting processed? Ex: `$x=9999999; print "Test1"; while($x--){0}` [download] Even though Test1 is passed to STDOUT, the while loop is processed before you see any output. If that's the case, try tossing a newline in there. (Again, I'm going off the top of my head here.) Perl won't display the output buffer until a newline is present, the operation holding it up produces output, or the operation is done. -inno	[reply] [d/l]
Re^3: control-C to "jumpstart" windows process by aquarium (Curate) on Oct 18, 2006 at 15:16 UTC
which version of perl? which version of windows? etc...monks can be more helpful when pertinent details are provided. you could try the old "turn of buffering" trick. `$\|=1;` [download] the hardest line to type correctly is: stty erase ^H	[reply] [d/l]