Re: Child process reading <STDIN> from parent

[Laurent_R]

My question, how to i pass on this data from parent to child?

You mean from child to parent, don't you? Otherwise it does not make sense to me.

[rjohn1]

My parent program launches the child like below:

parent.pl

=========

.....
launch_chld{
        my $cmd = "val_report.pl killall";
    my $h = IO::Handle->new;
    die "IO::Handle->new failed." unless defined $h;
    open $h, $cmd . ' 2>&1 |';
    $h->autoflush(1);
}

********************************************

val_report.pl

=========

....
...
process_args{
if(XYZ){
print "Do you really want XYZ. <YES> or <NO>";
die "Cant proceed as confirmation is NO" if(<> ne 'YES');
}
}

****************************************

Now process args will expect a input from user which in this case is parent.pl.

The question is how do i pass a "YES" or "NO" to process_args?

[Eily]

If I understand correctly the problem is not just that you're trying to read from STDOUT or write in STDIN of another process, it's that you're trying to do both at once.

perlopentut still gives you the answer on that one: it redirects to the perlipc documentation on bidirectionnal communication with another process. This seems quite simple, all you have to think about is disable buffering on both sides.

[rjohn1]

Just to add the $cmd also does o/p to stdout which i want to process which i capture via Tk::fileevent