Help for this page

Select Code to Download


  1. or download this
    open my $func1, "|-", q{perl -ne 'print "function1 (PID $$): processin
+g $_"; sleep 1'};
open my $func2, "|-", q{perl -ne 'print "function2 (PID $$): processin
+g $_"; sleep 3'};
...
foo
bar
baz
  2. or download this
    $ ./840957.pl
function1 (PID 21667): processing foo
...
function1 (PID 21667): processing baz
function2 (PID 21668): processing bar
function2 (PID 21668): processing baz