Re^2: Stop Command In Perl

Replies are listed 'Best First'.
Re^3: Stop Command In Perl by mbethke (Hermit) on Jul 12, 2012 at 17:58 UTC
It would send a SIGPIPE which may or may not stop the command. This stuff is rather system specific and I'm not sure if what's the default on Windows. Just try. Otherwise if you really need a Ctrl-C to be sent: this form of `open()` returns the child's PID so you can use `kill 2, $pid` to send the signal.	[reply] [d/l]
Re^4: Stop Command In Perl by monsoon (Pilgrim) on Jul 12, 2012 at 18:40 UTC
I think windows doesn't quite respect 'kill'. This (run on Windows 7 Professional, ActivePerl v5.12.4) `perl -e "$pid = open PIPE, '-\|', 'echo one two';$/=' '; while (<PIPE>) +{ print; kill 2, $pid}"` [download] outputs one two But this `perl -e "$pid = open PIPE, '-\|', 'echo one two';$/=' '; while (<PIPE>) +{ print; close PIPE}"` [download] outputs one	[reply] [d/l] [select]
Re^5: Stop Command In Perl by mbethke (Hermit) on Jul 12, 2012 at 22:21 UTC
Sure, I'd expect the signal emulation in Windows to be incompatible in some way but this particular phenomenon I blame on buffering. It's very very likely that the "echo" will have finished its output before the Perl process gets scheduled again so by the time the while() starts the whole output is sitting in STDIN's buffer already. You could try spawning the Windows equivalent of "(echo one; sleep 1; echo two)" and kill()ing that.	[reply]
Re^6: Stop Command In Perl by monsoon (Pilgrim) on Jul 13, 2012 at 05:17 UTC
Re^7: Stop Command In Perl by mbethke (Hermit) on Jul 13, 2012 at 21:50 UTC