Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^6: Stop Command In Perl

by monsoon (Pilgrim)
on Jul 13, 2012 at 05:17 UTC ( #981561=note: print w/ replies, xml ) Need Help??


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 +}"
Doesn't look like a buffering issue, more of a kill portability one.


Comment on Re^6: Stop Command In Perl
Download Code
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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://981561]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (14)
As of 2014-09-17 16:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (91 votes), past polls