in reply to Re^3: IPC problem
in thread IPC problem
Dunno...#!/usr/bin/perl use IPC::Open3; use POSIX qw( :sys_wait_h ); my $pid; my $cmd = "new.pl"; my $cmd2 = "new2.pl"; my $exit_code = 0; my $exit_code2 = 0; my $help = 0; my $help2 = 0; $pid = open3(*MMRET_IN, *MMRET_OUT, *MMRET_ERR, $cmd); print "Process spawned with PID = $pid \n"; $help = waitpid($pid,0); print "HELP_VALUE is $help\n"; $exit_code = $? >> 8; print "ExitCODE is $exit_code \n"; $pid2 = open3(*MMRET_IN2, *MMRET_OUT2, *MMRET_ERR2, $cmd2); print "Process spawned with PID = $pid2 \n"; $help2 = waitpid($pid2,0); print "HELP_VALUE is $help2\n"; $exit_code2 = $? >> 8; print "ExitCODE is $exit_code2 \n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^5: IPC problem
by almut (Canon) on Oct 18, 2007 at 14:22 UTC |