Re^6: Stop Command In Perl

in reply to Re^5: Stop Command In Perl
in thread Stop Command In Perl

Tried. Still get one

two
with this

perl -e "$pid = open PIPE, '-|', 'echo one && ping -n 5 127.0.0.1 >nul
+ && echo two';$/=' '; while (<PIPE>){ print $_ . \"\n\"; kill 2, $pid
+}"
[download]

Doesn't look like a buffering issue, more of a kill portability one.

Comment on Re^6: Stop Command In Perl Download Code

Replies are listed 'Best First'.
Re^7: Stop Command In Perl by mbethke (Hermit) on Jul 13, 2012 at 21:50 UTC
Well, in this case you'd have to leave $/ alone because there will be no spaces in your output, only newlines. There should be an extra blank line at the end of your output, right? The replies to this suggest `kill 2, $pid` does indeed work on Windows.	[reply] [d/l]

In Section Seekers of Perl Wisdom